Hallo,
versuch's mal so:
Delphi-Quellcode:
IF chkbAutoTime.Checked THEN BEGIN
edtZeit.Text := TimeToStr(StrToTime(edtZeit.Text) + (1 / 24 / 2));
END ELSE BEGIN
MrVariable:= 3; // ist ne Integervariable die ich zum vergleichen des Status benötigt
END;
1 = 1 Tage im TDateTime
1 / 24 = eine Stunde
1 / 24 / 2 = eine halbe Stunde
entspricht 1 / 48 oder 0,020833333333333333333333333333333