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

Kako da izracunam broj dana, date2 - date1 ?!

[es] :: Pascal / Delphi / Kylix :: Kako da izracunam broj dana, date2 - date1 ?!

[ Pregleda: 732 | Odgovora: 4 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

MatezYU
NS

Član broj: 4114
Poruke: 898
*.adanet.co.yu.

Sajt: www.matezyu.byethost6.com


Profil

icon Kako da izracunam broj dana, date2 - date1 ?!28.02.2007. u 12:15

Imam dva datuma, date2 i date1. Treba da izdracunam razliku u danima i da mi to bude promenljiva tipa integer..
Dakle nekako ovako, a:=date2-date1
Da li ima neka prosta funkcija?
28.02.2007. u 12:15 

morlic
Milos Orlic
Beograd

Moderator
Član broj: 6081
Poruke: 723
*.dynamic.sbb.co.yu.



Profil

icon Re: Kako da izracunam broj dana, date2 - date1 ?!28.02.2007. u 12:27
Bas tako kako si napisao, uz malu ispravku:

Razlika:= Trunc(Datum1 - Datum2);

daje razliku u danima.

Imas i unit DateUtils u kome imas funkcije koje ti mogu vratiti razliku u danima, satima, sekundama, plus jos mnogo drugih korisnih stvari
28.02.2007. u 12:27 

_deran_

Član broj: 69493
Poruke: 151
85.222.164.*



Profil

icon Re: Kako da izracunam broj dana, date2 - date1 ?!28.02.2007. u 12:27
a:=daysbetween(date1, date2);
ne znam prostije :) samo ubaci dateutils u uses



(morlic bio brzi za 9 sec :) )
28.02.2007. u 12:27 

Miloš Baić

Član broj: 72468
Poruke: 1095
212.200.180.*

Sajt: www.2advanced.com


Profil

icon Re: Kako da izracunam broj dana, date2 - date1 ?!28.02.2007. u 12:34
Pogledaj u helpu:
Citat:
Delphi syntax:

function DaysBetween(const ANow, AThen: TDateTime): Integer;

Code:

uses
  DateUtils;
...
procedure TForm1.FormCreate(Sender: TObject);
var AThen: TDate;
begin
 AThen:= StrToDate('25.02.2007');
 Caption:= IntToStr(DaysBetween(Now, AThen))
end;

If you go out of your mind, do it quietly, so as not to disturb those around you...
28.02.2007. u 12:34 

nikola.j
Nikola Janković

Član broj: 15712
Poruke: 83
*.eth-wifi.verat.net.



Profil

icon Re: Kako da izracunam broj dana, date2 - date1 ?!28.02.2007. u 17:17
Uporedi DaysBetween i DaySpan funkcije. Meni povremeno više odgovara DaySpan.
28.02.2007. u 17:17 

[es] :: Pascal / Delphi / Kylix :: Kako da izracunam broj dana, date2 - date1 ?!

[ Pregleda: 732 | Odgovora: 4 ]

Postavi temu Odgovori

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