счетчик дней
 

достаточно часто требуется найти количество дней между двумя датами. вот код на Delphi 6, он прост и понятенКод:procedure TForm1.Button1Click(Sender: TObject);labelen,noten;begindd:= strtodate(datetostr(date));dr := 32138; ds:= 100; //dr -это универсальная дата числа 27.12.1987 if dr>dd then beginshowmessage ('data is old');goto en;end;repeatds:= ds+1;until dd = ds;showmessage (inttostr(ds-dr));goto noten;en:form1.close;noten:end;аналогичн о можно узнать время в секундах(минутах, часах) если использовать функции strtotime и timetostr