Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Sabiranje dva "vremena"

[es] :: Pascal / Delphi / Kylix :: Sabiranje dva "vremena"

[ Pregleda: 2647 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Sabiranje dva "vremena"03.09.2005. u 20:31 - pre 226 meseci
Kako sabrati dve promenljive tipa TSystemTime, tako da dobijem jednu koja je rezultat sabiranja ove dve ?
Recimo, imam :

Code:

var
  a : TSystemTime;
  b : TSystemTime;
  c : TSystemTime;

begin
  a.wMilliSeconds := 500;
  a.wSecond := 50;
  a.wMinute := 30;
  a.wHour := 12;
  a.wDay := 25;
  a.wMonth := 2;
  a.wYear := 2005;

  b.wMilliSeconds := 880;
  b.wSecond := 13;
  b.wMinute := 21;
  b.wHour := 21;
  b.wDay := 09;
  b.wMonth := 5;
  b.wYear := 2;

  c := AddTimes(a, b);
end;


I sad, kako da u c smestim rezultat sabiranja a i b promenljivih ? Treba paziti i na prestupne godine, dane u mesecima itd... ? Hvala
 
Odgovor na temu

engineer

Član broj: 45205
Poruke: 113
*.metrohive.neobee.net.

Jabber: engineer


Profil

icon Re: Sabiranje dva "vremena"04.09.2005. u 08:07 - pre 226 meseci
Code:

DateTimeToSystemTime(SystemTimeToDateTime(a) + SystemTimeToDateTime(b), c);
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Sabiranje dva "vremena"04.09.2005. u 09:13 - pre 226 meseci
Hm, ovo ne radi kako treba, kao rezultat dobijem neke sasvim leve vrednosti...
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.panet.co.yu.



+1 Profil

icon Re: Sabiranje dva "vremena"04.09.2005. u 11:15 - pre 226 meseci
Nece da radi posto Delphi-ju pocinje vreme od 31/12 1899 12am. Moras da dodas 693594.0 da bi se vreme normalizovalo.

DateTimeToSystemTime(693594+SystemTimeToDateTime(a) + SystemTimeToDateTime(b), c);

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Sabiranje dva "vremena"

[ Pregleda: 2647 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.