Code:
function a($)
    $ = split($,'/')
    $a = $[0]+'/'+$[1]+'/'+(31-right(_1_1__1_1_3_,$[1])+($[0] mod 4=0 & ($[0] mod 4=0|$[0] mod 99>) & 2=$[1]))
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 09:21:50.394
Processing End   = 2011/10/24 09:21:50.394
Duration         = 0000/00/00 00:00:00.000
# Tests Run      = 18
# Tests Passed   = 18
# Tests Failed   = 
Result           = passed
KiXGolf Score    = 131

Thank you for participating in KiXtart Golf!