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

Sabiranje dva "vremena"

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

[ Pregleda: 681 | Odgovora: 3 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

reiser
Vranje

Član broj: 7895
Poruke: 1892
*.dialup.neobee.net.



Profil

icon Sabiranje dva "vremena"03.09.2005. u 20:31

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
03.09.2005. u 20:31 

engineer

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



Profil

icon Re: Sabiranje dva "vremena"04.09.2005. u 08:07
Code:

DateTimeToSystemTime(SystemTimeToDateTime(a) + SystemTimeToDateTime(b), c);
04.09.2005. u 08:07 

reiser
Vranje

Član broj: 7895
Poruke: 1892
*.dialup.neobee.net.



Profil

icon Re: Sabiranje dva "vremena"04.09.2005. u 09:13
Hm, ovo ne radi kako treba, kao rezultat dobijem neke sasvim leve vrednosti...
04.09.2005. u 09:13 

Toyo

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



Profil

icon Re: Sabiranje dva "vremena"04.09.2005. u 11:15
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);
04.09.2005. u 11:15 

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

[ Pregleda: 681 | Odgovora: 3 ]

 Postavi temu Odgovori

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