STORE DATE() TO adate
STORE thisform.text4.value TO bdate
day2=DTOC(adate-DAY(bdate))
DAY1=DAY(CTOD(day2))
month2=GOMONTH(CTOD(day2),-MONTH(bdate))
MONTH1=MONTH(month2)
YEAR1=YEAR(month2)-YEAR(bdate)
IF DAY1=30 THEN
DAY1=DAY1-30
MONTH1=MONTH1+1
ENDIF
IF DAY1=31 THEN
DAY1=DAY1-31
MONTH1=MONTH1+1
ENDIF
IF MONTH1>=12 THEN
MONTH1=MONTH1-12
YEAR1=YEAR1+1
ENDIF
الفرق بين تاريخ والتاريخ الحالي
والمرفق يوضح اكثر ارجو تستفيدوا
