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!

_________________________