Hello
Próbuje rozgryść TTime, ale wcale mi się to nie udaje. Próbuje przy użyciu wyłącznie metody div podzielić wartość TTime tak abym mógł uzyskać godzinę, minuty, sekundy i tysieczne sekundy. Wiem, że jest to możliwe tylko nie wiem jaki jest to format czasu. Pierwsze cyfry (tzn. przed przecinkiem) to zapewne data, a reszta to czas. Jednak aby go otrzymać co jest mnożone przez siebie? Ja próbowałem 246060*1000, ale nic mi z tego nie wyszło. ;(
Proszę o pomoc [!!!]
Do tego możesz użyc funkcji DecodeTime, ale jeśli chcesz to pewnie jest to robione na wzór takiego:
var
SumaSekund, h, n, s: integer;
begin
SumaSekund := 453445; // Ilość sekund
h:=suma div 3600; // Ile w tym jest godzin
n:=(suma mod 3600) div 60; // Pozostałe minuty z powyższego
s:=(suma mod 3600) mod 60; // Pozostałe sekundy z powyższego
end;
Trzeba jeszcze przeliczyć wg tego:
<font color="darkblue">
The fractional part reflects the fraction of a 24-hour day without regard to the sign of the TDateTime value. For example, 6:00 am on 12/29/1899 is ?1.25, not ?1 + 0.25, which would be ?0.75. There are no TDateTime values between ?1 and 0.</span>
A tu są przykłady:
0 : 12/30/1899 12:00 am
2.75 : 1/1/1900 6:00 pm
-1.25 : 12/29/1899 6:00 am
35065 : 1/1/1996 12:00 am
Dzięki .. - twój kod naprowadził mnie na właściwy tok myślenia [soczek]