slight variation, as well worth 115

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