function a($)
    $a = left($,7)
    $ = right($a,2)
    $a = $a+'/'+(31-right(_1_1__1_1_3_,$)+(2=$ & $a mod 4=0 & $a mod 400=0 | $a mod 100>))
endfunction