Sabiranje vremena

Sabiranje vremena 04.10.2008. u 20:26 · pre 219 meseci #1

Koristim Delphi i u Access bazi imam polje za unos vremena, i na koji nacin moze da se izvrsi sabiranje unetih vremena tako da se sati dobiju u pravim brojkama (npr. ako ima 258 sati) a minuti do 59. Nesto sam probao i kada izvrsim sabiranje vremena i kada je zbir sati do 23 onda je u redu a kada predje zbir 23 i treba da bude 24 onda mi ispise 00.
Unapred hvala.

Re: Sabiranje vremena 05.10.2008. u 00:03 · pre 219 meseci #2

> Koristim Delphi i u Access bazi imam polje za unos vremena, i na koji nacin moze da se izvrsi sabiranje unetih vremena tako da se
> sati dobiju u pravim brojkama (npr. ako ima 258 sati) a minuti do 59. Nesto sam probao i kada izvrsim sabiranje vremena i kada je
> zbir sati do 23 onda je u redu a kada predje zbir 23 i treba da bude 24 onda mi ispise 00.

Pitanje ti nije jasno, tako da odgovor koji sledi može da ti pomogne, ako ne pomaže onda moraš preformulisati pitanje i bolje izložiti problem.
Delphi TDateTime je u osnovi double tip podataka tako da se promenljive mogu međusobno sabirati i oduzimati. Ako treba dodati određeni broj sati onda se može koristiti IncHour funkcija.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Sabiranje vremena 05.10.2008. u 13:40 · pre 219 meseci #3

Da probam sa primerom da pojasnim malo.
kada se izvrsi sabiranje vise vremena (13:10, 12:20, 15:50) da se dobije rezultat 41:20.

Re: Sabiranje vremena 05.10.2008. u 16:56 · pre 219 meseci #4

> kada se izvrsi sabiranje vise vremena (13:10, 12:20, 15:50) da se dobije rezultat 41:20.

Code:

var
  d1, d2, d3, d4: TDateTime;
begin
  d1 := StrToTime('13:10');
  d2 := StrToTime('12:20');
  d3 := StrToTime('15:50');

  d4 := d1 + d2 + d3;
  Caption := Format('%d:%d', [Trunc(d4 * HoursPerDay), MinuteOf(d4)]);

Još jedna varijanta je da ne koristiš TDateTime već neki record sa odvojenim poljima za minute i sate (npr. TSystemTime) i da onda ručno sabiraš.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Sabiranje vremena 05.10.2008. u 18:20 · pre 219 meseci #5

Sabiranje vremena m je trebalo u varijantama kad se pojavljuju sati rada (učinici i sl.) i najbolje je napravio sam tako da uneseno vrijeme pretvorim u minute i kod ispisa preračuna u ispišem u formatu hh:mm

Srodne teme