Terminerrinerung ?

[PierreB]

Delphi-Quellcode:

procedure Form1.OnClick(Sender: TObject);
var
zeit : TTime; 
datum : TDate;
begin
datum := StrToDate('05.10.2005');
zeit := TimeToStr('17:52:00');
if (TimeToStr(zeit) = TimeToStr(now)) and (DateToStr(datum) = DateToStr(now)) then infoform.Show;
end;