Kako da izracunam broj dana, date2 - date1 ?!

Odgovori Nova tema

4 odgovora
3.441 pregleda

Kako da izracunam broj dana, date2 - date1 ?! 28.02.2007. u 13:15 · pre 239 meseci #1

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?

Re: Kako da izracunam broj dana, date2 - date1 ?! 28.02.2007. u 13:27 · pre 239 meseci #2

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

Re: Kako da izracunam broj dana, date2 - date1 ?! 28.02.2007. u 13:27 · pre 239 meseci #3

a:=daysbetween(date1, date2);
ne znam prostije :) samo ubaci dateutils u uses

(morlic bio brzi za 9 sec :) )

Re: Kako da izracunam broj dana, date2 - date1 ?! 28.02.2007. u 13:34 · pre 239 meseci #4

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;

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Re: Kako da izracunam broj dana, date2 - date1 ?! 28.02.2007. u 18:17 · pre 239 meseci #5

Uporedi DaysBetween i DaySpan funkcije. Meni povremeno više odgovara DaySpan.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme