George suggested:

>IF VAL(YearStr$)>80 then YearStr$="19"+YearStr$ else
YearStr$:="20"+YearStr$
>year%=Val(YearStr$)

Birthday: 20/9/56
So using this example, I haven't been born yet :-)