Wanted to know what day is it... It was harder question than I thought, so maybe better to share the code:
10 INPUT D,M,Y:YL=YMOD100:YH=Y\100:PRINTMID$("SatSunMonTueWedThuFri",((D+VAL(MID
$("622503514624",M,1))+YL+YL\4+((-YH)AND3)*2-((YHAND3)=0)-(M<3)*(((YMOD400)=0)-(
YL>0)*((YAND3)=0)))MOD7)*3+1,3)
RUN
? 4,1,2015
Sun
Ok
Login or register to post comments
