Div i Time

0

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 [!!!]

0

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

0

Dzięki .:DETOX:. - twój kod naprowadził mnie na właściwy tok myślenia [soczek]

1 użytkowników online, w tym zalogowanych: 0, gości: 1