143, look Ma, no DIM 

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