[es] - Delphi,konvertovanje dana u dae,mesece,godine

popmilan76

Član broj: 295089
Poruke: 1350
*.dynamic.sbb.rs.

+5 Profil

Delphi,konvertovanje dana u dae,mesece,godine

^{20.10.2012. u 18:09 - pre 152 meseci}

Kako da izracunam razliku dana,a da je prikazem u godinama,mesecima i danima...Jel ima neko tu funkciju

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1350
*.dynamic.sbb.rs.

+5 Profil

Re: Delphi,konvertovanje dana u dae,mesece,godine

^{20.10.2012. u 19:08 - pre 152 meseci}

Nasao sam ovaj kod ali ne pokazuje pravilno.......

procedure BrojDana(d1, d2: TDate; var Dan, Mes, God: Integer);
var
i, Raz: Integer;
Dan1, Dan2, Mes1, Mes2, God1, God2: Word;
begin
Dan := 0;
Mes := 0;
God := 0;
DecodeDate(d1, God1, Mes1, Dan1);
while d1 < d2 do
begin
Inc(God1);
d1 := EncodeDate(God1, Mes1, Dan1);
if d1 <= d2 then
Inc(God)
else begin
Dec(God1);
d1 := EncodeDate(God1, Mes1, Dan1);
Break;
end;
end;
while d1 < d2 do
begin
Inc(Mes1);
if Mes1 = 13 then
begin
Inc(God1);
Dec(Mes1);
end;
d1 := EncodeDate(God1, Mes1, Dan1);
if d1 <= d2 then
Inc(Mes)
else begin
Dec(Mes1);
d1 := EncodeDate(God1, Mes1, Dan1);
Break;
end;
end;
while d1 < d2 do
begin
d1 := d1 + 1;
if d1 <= d2 then
Inc(Dan)
end;
end;

procedure TfrmNoviunos.BitBtn1Click(Sender: TObject);
var
Dan, Mes, God: Integer;
begin
BrojDana(datetimepicker1.Date,datetimepicker2.Date ,Dan, Mes, God);
Showmessage(IntToStr(Dan) + '.' + IntToStr(Mes) + '.' + IntToStr(God));
end;
end.

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1350
*.dynamic.sbb.rs.

+5 Profil

Re: Delphi,konvertovanje dana u dae,mesece,godine

^{21.10.2012. u 09:22 - pre 152 meseci}

Pronasao sam kod za ovo sto sam napisao,ako nekome treba,neka se javi....Pozdrav

Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1350
*.dynamic.sbb.rs.

+5 Profil

Re: Delphi,konvertovanje dana u dae,mesece,godine

^{21.10.2012. u 20:05 - pre 152 meseci}

Imam jos jedno dodatno pitanje,kako da na osnovu polja datumpocetka i danasnjeg datuma,postavim u svim redovima polja staz dbgrida ili table1 god,mesece,i dane za svakog radnika....

Odgovor na temu