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