Sabiranje dva vremena

Sabiranje dva "vremena" 03.09.2005. u 21:31 · pre 257 meseci #1

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

Re: Sabiranje dva "vremena" 04.09.2005. u 09:07 · pre 257 meseci #2

Code:

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

Re: Sabiranje dva "vremena" 04.09.2005. u 10:13 · pre 257 meseci #3

Hm, ovo ne radi kako treba, kao rezultat dobijem neke sasvim leve vrednosti...

Re: Sabiranje dva "vremena" 04.09.2005. u 12:15 · pre 257 meseci #4

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);

Forum kao aplikacija na telefonu

Srodne teme