StDay:=Input(" Start day",1,31,1);
StMnth:=Input("Start month",1,12,8);
StYear:=Input("Start year",1980,2002,2001);
EnDay:=Input(" End day",1,31,31);
EnMnth:=Input(" End month",1,12,8);
EnYear:=Input(" End year",1980,2002,2001);
If((Year() > StYear OR (Year()=StYear AND ((Month() >
StMnth) OR (Month() = StMnth AND DayOfMonth() >=
StDay)))) AND (Year() < EnYear OR (Year()=EnYear AND
((Month() < EnMnth) OR (Month() = EnMnth AND
DayOfMonth() <= EnDay)))) ,1,0);