[es] - Predstaviti razliku dva datuma?

Almedin

Član broj: 5895
Poruke: 425
*.dlp427.bih.net.ba.

+27 Profil

^{02.02.2007. u 19:02 - pre 210 meseci}

Nekada sam radio program koji je racunao upravo staz na osnovu perioda, evo kod u Clipper-u, Nisam imao potrebe raditi ga u Delphi-u, konvertovanje se moze uraditi za par minuta. Tada kada sam program koristio, provjeravao sam sa podacima iz Penzijskog osiguranja i bilo je sve u redu.

Code:

primjer upotrebe

na pocetku se 'ukupno' inicijalizuje nulama

AddDatSub(od1, do1, ukupno)
AddDatSub(od2, do2, ukupno)

sada 'ukupno' sadrzava vrijeme (staz)

===============
FUNCTION AddDatSub(dStart, dEnd, aTime)
PRIVATE aTmp[3]
aTmp[1] = YEAR(dEnd) - YEAR(dStart)
aTmp[2] = MONTH(dEnd) - MONTH(dStart)
aTmp[3] = DAY(dEnd) - DAY(dStart)

WHILE aTmp[3] < 0
aTmp[2]--
aTmp[3] = aTmp[3] + 30
END

WHILE aTmp[2] < 0
aTmp[1]--
aTmp[2] = aTmp[2] + 12
END

aTime[1] := aTime[1] + aTmp[1]
aTime[2] := aTime[2] + aTmp[2]
aTime[3] := aTime[3] + aTmp[3]

AdjustTime(aTime)

FUNCTION AdjustTime(aTime)
* aTime[1] - godine
* aTime[2] - mjeseci
* aTime[3] - dani

IF aTime[3] > 29
aTime[2] = aTime[2] + INT(aTime[3]/30)
aTime[3] = aTime[3] - INT(aTime[3]/30) * 30
END IF

IF aTime[2] > 11
aTime[1] = aTime[1] + INT(aTime[2]/12)
aTime[2] = aTime[2] - INT(aTime[2]/12) * 12
END IF

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.kalik.info.

Profil

Re: Predstaviti razliku dva datuma?

^{03.02.2007. u 00:05 - pre 210 meseci}

Code:
...
var
  Datum : TDateTime;
begin
  Datum := StrToDate('03.02.2007');//postavka datuma
  Datum := IncMonth(Datum, 5); //funkcija koja prikazuje datum za postavljeni  broj meseci, ovde za 5
  ShowMessage('Datum = ' + DateToStr(Datum)); // rezultat 03.07.2007
end;

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

Odgovor na temu