Oh vielen Dank für die Antwort!
Ich hab in der Zwischenzeit folgendes zusammengeschustert:
Delphi-Quellcode:
function DateTimeDiff_m(date1, date2: TDateTime): string;
var days, hours, minutes, secs: integer;
difference: real;
begin
difference:=date2-date1;
days:=round(difference-Frac(difference));
difference:=Frac(difference)*24;
hours:=round(difference-Frac(difference));
difference:=Frac(difference)*60;
minutes:=round(difference-Frac(difference));
difference:=Frac(difference)*60;
secs:=round(difference-Frac(difference));
result:=IntToStr(minutes);
end;
Der Aufruf z.B.
Delphi-Quellcode:
procedure TFlogin.Button1Click(Sender: TObject);
begin
if StrToInt(DateTimeDiff_m(now, StrToDateTime('22.03.2007 01:00:00'))) < 0 then
begin
//Variable auf True setzen weil die Minuten ins negative gehen
//andere Anweisungen
end
else
begin
//Variable auf FALSE setzen, der result ist noch positiv
//andere Anweisungen
end;
Ich teste gleich mal shimas version!