I don't like the string version, so here is another...
 Code:
function a($)
    $a = substr($,6)
    $a = left($,7)+'/'+(30+($a mod 2 ^ 7<$a)-2*(2=$a)+(2=$a & $ mod 4 + 0.01*$ mod 4=))
endfunction


and this is how I remember them months \:\)
everyother, but swap after 7.
_________________________
!

download KiXnet