damn, that took long!
function a($)
$a = substr($,6)
$a = left($,7)+'/'+(31-right(_1_1__1_1_3_,$a)+(2=$a & $ mod 4=0 & $ mod 400=0 | $ mod 100>))
endfunction
KiXtart Version = 4.62
KiXGolf Script = kixgolf_eom.kix
Scoring Engine = 3.3
OS = Windows XP Professional
CPU = Intel Pentium Celeron
Speed = 2393 MHz
Memory = 4096 MB
Tournament = End of Month
Processing Start = 2011/10/25 13:00:10.493
Processing End = 2011/10/25 13:00:10.493
Duration = 0000/00/00 00:00:00.000
# Tests Run = 21
# Tests Passed = 21
# Tests Failed =
Result = passed
KiXGolf Score = 115
Thank you for participating in KiXtart Golf!
_________________________