Delphi and MsAccess

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;