140 

function a($)
    $ = split($,'/')
    $a = $[0]+'/'+$[1]+'/'+ (31-substr(_3_1_1__1_1,$[1],1) + ($[0] mod 4=)*(($[0] mod 400=)+($[0] mod 100>))*(2=$[1]))
endfunction
_________________________