Code:
procedure TForm1.Button1Click(Sender: TObject);
var
sgod,smes,sdan,sString:String;
Godina,mesec,nedelja,dan,ProtekloDana:Word;
iGod,imes,idan:Integer;
Dt,PocDate:TDate;
begin
sString:=Edit1.Text; // string iz baze
sgod := Copy(sString, 1, 2);
smes := Copy(sString, 3, 2);
sdan := Copy(sString, 5, 2);
Godina:=Strtoint(sgod);
mesec:=Strtoint(smes);
dan:=Strtoint(sdan);
PocDate:=EncodeDate(2008,06,6); // datum kada je uneta zadnja izmena
{Odredujemo datum od kada je poceo da se racuna radni staz}
PocDate:=IncDay(PocDate,-dan);
PocDate:=IncMonth(PocDate,-mesec);
PocDate:=IncYear(PocDate,-Godina);
Dt:= Today; // datum do koda prracunavamo novi radni staz Uzimamo danas
DateDiff(PocDate,Dt,iGod,imes,idan); // trazimo razliku izmedu dva datuma OVA FUNKCIJA NE VRACA PRAVILNO BROJ MESECI
ShowMessage('Radni staz iznosi '+Inttostr(idan)+' dana, '+Inttostr(imes-1)+'meseci , '+Inttostr(iGod)+' godina');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sgod,smes,sdan,sString:String;
Godina,mesec,nedelja,dan,ProtekloDana:Word;
iGod,imes,idan:Integer;
Dt,PocDate:TDate;
begin
sString:=Edit1.Text; // string iz baze
sgod := Copy(sString, 1, 2);
smes := Copy(sString, 3, 2);
sdan := Copy(sString, 5, 2);
Godina:=Strtoint(sgod);
mesec:=Strtoint(smes);
dan:=Strtoint(sdan);
PocDate:=EncodeDate(2008,06,6); // datum kada je uneta zadnja izmena
{Odredujemo datum od kada je poceo da se racuna radni staz}
PocDate:=IncDay(PocDate,-dan);
PocDate:=IncMonth(PocDate,-mesec);
PocDate:=IncYear(PocDate,-Godina);
Dt:= Today; // datum do koda prracunavamo novi radni staz Uzimamo danas
DateDiff(PocDate,Dt,iGod,imes,idan); // trazimo razliku izmedu dva datuma OVA FUNKCIJA NE VRACA PRAVILNO BROJ MESECI
ShowMessage('Radni staz iznosi '+Inttostr(idan)+' dana, '+Inttostr(imes-1)+'meseci , '+Inttostr(iGod)+' godina');
end;