diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2005-01-28 14:58:01 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2005-01-28 14:58:01 +0000 |
| commit | 2f17f6166347ec717e0dae23ae8d39f341178f69 (patch) | |
| tree | e1d6091f0a13aade1c893ffccc1e7a7847fd71da /wizards/source | |
| parent | 1d44016988dd18ffaefe4fb93daf58ac8a68edef (diff) | |
INTEGRATION: CWS extras16 (1.33.36); FILE MERGED
2005/01/10 11:27:14 ih 1.33.36.2: #i34961# corrected LineBreak
2005/01/10 10:57:46 ih 1.33.36.1: #i34961# added CalIsLeapYear
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/tools/Misc.xba | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 99ec3d11b79a..7eca46671f12 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -810,4 +810,8 @@ Dim oFrame as Object End If End Sub +'Function to calculate if the year is a leap year +Function CalIsLeapYear(ByVal iYear as Integer) as Boolean + CalIsLeapYear = ((iYear Mod 4 = 0) And ((iYear Mod 100 <> 0) Or (iYear Mod 400 = 0))) +End Function </script:module>
\ No newline at end of file |