NMAH$='31;31;31;31;31;31;30;30;30;30;30;29;'
Today$='1394/10/12/'
Birth$='1369/02/30/'
Tday$=GetArrayItem(Today$,/,3)
Bday$=GetArrayItem(Birth$,/,3)
Tmonth$=GetArrayItem(Today$,/,2)
Bmonth$=GetArrayItem(Birth$,/,2)
Tyear$=GetArrayItem(Today$,/,1)
Byear$=GetArrayItem(Birth$,/,1)
DAY=VAL(Tday$)-VAL(Bday$)
If (DAY<0) Then
N=VAL(Tmonth$)
TED$=GetArrayItem(NMAH$,;,N)
TED=VAL(TED$)
Tmonth=N-1
Tmonth$=CHAR(Tmonth)
Tday=VAL(Tday$)+TED
Tday$=CHAR(Tday)
DAY=VAL(Tday$)-VAL(Bday$)
End
Message("","DAY")
***taklif DAY moshakhas
**noobat mah
MONTH=VAL(Tmonth$)-VAL(Bmonth$)
If (MONTH<0) Then
Tyear=VAL(Tyear$)-1
Tyear$=CHAR(Tyear)
Tmonth=VAL(Tmonth$)+12
Tmonth$=CHAR(Tmonth)
MONTH=VAL(Tmonth$)-VAL(Bmonth$)
End
Message("","MONTH")
YEAR=VAL(Tyear$)-VAL(Byear$)
Message("","YEAR")