Datei-Änderungsuhrzeit in einer Schleife ändern, 1 Stunde zuviel...

[musicman56]

Hallo Jürgen,

probier's mal so:

Delphi-Quellcode:

procedure TFrm_Main.Set_my_global_Time_Variablen(FileName: string);
var
  OldFileDateTime, NewFileDateTime: TDateTime;
  TimeOffset: Double;
begin
  OldFileDateTime := GetFileDate(FileName);
  TimeOffset :=  Frac(TP_Datei_Offsettime.Time) + (SpEdt_Sekundenzaehler.Value / 86400);
  NewFileDateTime := OldFileDateTime + TimeOffset;
  . . . .

Eines der Probleme mit deinem Code könnte sein: Wenn die Uhrzeit z.B. 23:59 ist, und eine Stunde dazu kommt, dann muss auch der Tag erhöht werden. In diesem Fall wird das TimeOffset > 1 und somit funktionierts (ungetestet)