From 2f17f6166347ec717e0dae23ae8d39f341178f69 Mon Sep 17 00:00:00 2001 From: Rüdiger Timm Date: Fri, 28 Jan 2005 14:58:01 +0000 Subject: 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 --- wizards/source/tools/Misc.xba | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'wizards/source') 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 \ No newline at end of file -- cgit