110

function a($)
$a = substr($,6)
$a = left($,7)+'/'+(31-substr(_3_1_1__1_1,$a)+(2=$a & $ mod 4=0 & (0.01*$) mod 4=))
endfunction
_________________________
!

download KiXnet