I golfed down the leapyear bit to this
Code:
 
$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
_________________________
Taxation WITH representation isn't so hot, either!