[ reiser @ 03.09.2005. 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
[ engineer @ 04.09.2005. 08:07 ] @
Code:

DateTimeToSystemTime(SystemTimeToDateTime(a) + SystemTimeToDateTime(b), c);
[ reiser @ 04.09.2005. 09:13 ] @
Hm, ovo ne radi kako treba, kao rezultat dobijem neke sasvim leve vrednosti...
[ Toyo @ 04.09.2005. 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);