;Last day of each month
$a = "31","28","31","30","31","30","31","31","30","31","30","31"

; Initialize
$LeapYear = 0
; A leap year is any multiple of 4...
$Test = $Year / 4
$Test = $Test * 4
If $Year = $Test
	$LeapYear = 1
EndIf
; ...except If it is a multiple of 100...
$Test = $Year / 100
$Test = $Test * 100
If $Year = $Test
	$LeapYear = 0
EndIf
; ...unless it is a multiple of 400!
$Test = $Year / 400
$Test = $Test * 400
If $Year = $Test
	$LeapYear = 1
EndIf

;Reset the value in the array
If $LeapYear = 1
	$a[1] = 29
EndIf

;Last day of the current month
$ld = $a[@MONTHNO - 1]

 

$days = ReturnCTDays(2004,2)
? ctime($days[ubound($days)])

 
$Year = @YEAR
;A leap year is any multiple of 4...
If $Year MOD 4 = 0
	$LeapYear = 1
EndIf
; ...except If it is a multiple of 100...
If $Year MOD 100 = 0
	$LeapYear = 0
EndIf
; ...unless it is a multiple of 400!
If $Year MOD 400 = 0
	$LeapYear = 1
EndIf

 

$y=@YEAR
$l=(Right($y*25,2)='00') and ((Right($y,2)<>'00') or (Right($y*25,4)='0000'))

$iLeapYear=Not(@YEAR MOD 400) OR (@YEAR MOD 100) AND Not(@YEAR MOD 4)

 
;Create an array of Last day of each month
$mld = "31","28","31","30","31","30","31","31","30","31","30","31"

;Calculate if Leap Year
$LeapYear= Not(@YEAR MOD 400) OR (@YEAR MOD 100) AND Not(@YEAR MOD 4)

;Reset the February value in the array if this is a Leap Year
If $LeapYear = 1
	$mld[1] = 29
EndIf

;Get Last day of the current month from $mld array
$ld = $mld[@MONTHNO - 1]

 

Quote:

---

A lot of KiXtart users play golf as a hobby ;-)

---

...and some of us can never let it go :
Code:

---

;Create an array of Last day of each month
$mld = "31","28","31","30","31","30","31","31","30","31","30","31"
 
; Determine number of days in February
$mld[1]=28+(Not(@YEAR MOD 400) OR (@YEAR MOD 100) AND Not(@YEAR MOD 4))
 
;Get Last day of the current month from $mld array
$ld = $mld[@MONTHNO-1]

---

;Create an array of Last day of each month with buieldin leapyar check
$mld = 31,28+(Not(@Year Mod 400) Or (@Year Mod 100) And Not(@Year Mod 4)),31,30,31,30,31,31,30,31,30,31
 
;Get Last day of the current month from $mld array
$ld = $mld[@MonthNo-1]

;Create an array of Last day of each month with builtin leapyar check
$o=0,3-(Not(@Year Mod 400) Or (@Year Mod 100) And Not(@Year Mod 4)),0,1,0,1,0,0,1,0,1,0
 
;Get Last day of the current month from $o array
$d=31-$o[@MonthNo-1]