Code:
function a($)
    $ = split($,'/')
    $a = $[0]
    $a = $a+'/'+$[1]+'/'+(31-right(_1_1__1_1_3_,$[1])+(2=$[1] & $a mod 4=0 & $a mod 400=0 | $a mod 100>))
endfunction


 Code:

KiXtart Version  = 4.62
KiXGolf Script   = kixgolf_eom.kix
Scoring Engine   = 3.3
OS               = Windows XP Home Edition
CPU              = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 768 MB

Tournament       = End of Month
Processing Start = 2011/10/24 13:12:32.784
Processing End   = 2011/10/24 13:12:32.784
Duration         = 0000/00/00 00:00:00.000
# Tests Run      = 21
# Tests Passed   = 21
# Tests Failed   = 
Result           = passed
KiXGolf Score    = 131

Thank you for participating in KiXtart Golf!