Melanie,
shouldn't it be . . .
IF TempA=3
Code:
CalculateLinearFromDate:
DAYS=0
IF YEAR>0 then
For CounterA=0 to YEAR-1
TempA=(countera)//4
LCDOUT $FE,$8e,dec2 tempa
TempB=365
If TempA=0 then TempB=TempB+1
DAYS=DAYS+TempB
Next CounterA
endif
IF MONTH>1 then
For CounterA=1 to MONTH-1
Read (CounterA+20),ByteA
'-----------------------------------------------
If TempA=3 then
'-----------------------------------------------
If CounterA=2 then ByteA=ByteA+1
endif
DAYS=DAYS+ByteA
Next CounterA
endif
DAYS=DAYS+DAY-1
Return
Bookmarks