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