This is the code I have so far and it works to a point:
x=alltrim(birthday1)
x1=alltrim(left(x,at("-",alltrim(x))-1))&&&day
x=alltrim(right(x,len(x)-at("-",alltrim(x))))
x2=alltrim(left(x,at("-",alltrim(x))-1))&&&month
do case
case x2="Jan"
x2="01"
case x2="Feb"
x2="02"...