[es] - Sabiranje vremena

mzarko

Član broj: 33636
Poruke: 80
77.46.248.*

Profil

^{04.10.2008. u 20:26 - pre 189 meseci}

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.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Sabiranje vremena

^{05.10.2008. u 00:03 - pre 189 meseci}

> 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.

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

Odgovor na temu

mzarko

Član broj: 33636
Poruke: 80
93.86.54.*

Profil

Re: Sabiranje vremena

^{05.10.2008. u 13:40 - pre 189 meseci}

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.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Sabiranje vremena

^{05.10.2008. u 16:56 - pre 189 meseci}

> 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š.

Odgovor na temu

juha5803

Član broj: 74797
Poruke: 88
*.teol.net.

Profil

Re: Sabiranje vremena

^{05.10.2008. u 18:20 - pre 189 meseci}

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

Odgovor na temu