function a($)
    $a = substr($,6)
    $a = left($,7)+'/'+(30+($a mod 2 ^ 7<$a)-(2=$a)*(1+($ mod 4 + 0.01*$ mod 4>)))
endfunction