Month's abbreviated name to digits

[ssimop]

Thank you. I attach my solution, for any interest.

Function tempf03

Code:

Copy      Help

function# str'mon
;_i=tempf03("Apr")
;out _i
lpstr m="JanFebMarAprMayJunJulAugSepOctNovDec"
int i=find(m mon)
if(i<0)
,err "Error in month"
i=i/3+1
ret i