Gleitkommazahl in Zeitstring umwandeln

[erik]

Hallo,

ich habe ein Problem

Ich versuche ein Excel-Datenblatt auszuwerten, darin enthalten ist eine Zeitangabe (Dauer eines Versuches) die in Excel als hh:mm:ss angezeigt wird (Bsp: 24:01:25) aber wenn man die Zelle ausließt wird dieser Wert als Kommazahl angegeben (1,0009837962963), ich habe schon versucht die Zahl mit TimeToStr() ,FormatDateTime() etc. umzuwandeln, da erhalte ich allerdings nur (wenn überhaupt) 00:01:25 - kann mir jemand helfen, wie ich die korrekte Angabe erhalte, also mit der richtigen Stundenzahl im Format hh:mm:ss?

Vielen Dank und einen schönen Sonntag

Erik

[mschnell]

Offensichtlich verwendet Execll einen anderen Umrechnungsfaktor Floating Wert -> Zeit als Lazarus.

In Lazarus ist 1.0000 = ein Tag.

in Execll: keine Ahnung. Kannst Du aber sicher leicht ausprobieren.

-Michael

[wp_xyz]

TTime ist eine Gleitkommazahl, die die Zeit eines Tages, beginnend bei 0:00, auf das Intervall zwischen 0..1 abbildet. Werte größer als 1 werden abgeschnitten. Aber das kann man einfach korrigieren, indem nach je Ganzzahl-Anteil 24 Stunden hinzuaddiert. Folgender Button-Click-Code zeigt bei mir das richtige Ergebnis an:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
const
  t = 1.0009837962963;
var
  hr,min,sec,s100: word;
begin
  DecodeTime(t, hr,min,sec,s100);
  inc(hr, trunc(t)*24);
  ShowMessage(Format('%.2d:%.2d:%.2d.%.3d', [hr, min, sec, s100]));
end;