Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Delphi and MsAccess

[es] :: Pascal / Delphi / Kylix :: Delphi and MsAccess

Strane: 1 2

[ Pregleda: 4926 | Odgovora: 24 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Milan Milosevic

Član broj: 67
Poruke: 932
*.dynamic.isp.telekom.rs.



+31 Profil

icon Re: Delphi and MsAccess08.07.2015. u 20:20 - pre 106 meseci
Ovo bi trebalo da radi valjano

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;
 
Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1337
*.dynamic.isp.telekom.rs.



+5 Profil

icon Re: Delphi and MsAccess08.07.2015. u 22:27 - pre 106 meseci
Evo ovako,jasno mi je da ne mogu sabirati stringove,nije tu problem....Ja cak napravim i razliku izmedju dva datuma u formatima,g,m,d....ali kada iz onog stringa izdvojim ,recimo mesece.....dobijam,recimo 19 meseci,sto je 1 godina i 7 meseci,isto tako i za dane....
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Delphi and MsAccess09.07.2015. u 00:18 - pre 106 meseci
> ali kada iz onog stringa izdvojim ,recimo mesece.....dobijam,recimo 19 meseci,sto je 1 godina i 7 meseci,isto tako i za dane....

Tu je samo problem sa danima, moraš videti koji je zvaničan algoritam (PIO fond je tu merodavan) za sabiranje dana i da li je npr. 35 dana, 1m i 4d ili 1m i 5d.
 
Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1337
*.dynamic.isp.telekom.rs.



+5 Profil

icon Re: Delphi and MsAccess09.07.2015. u 08:39 - pre 106 meseci
Mesec mi racuna kao 30 dana...
 
Odgovor na temu

popmilan76

Član broj: 295089
Poruke: 1337
*.dynamic.isp.telekom.rs.



+5 Profil

icon Re: Delphi and MsAccess09.07.2015. u 09:18 - pre 106 meseci
Uspeo sam,hvala svima...
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Delphi and MsAccess

Strane: 1 2

[ Pregleda: 4926 | Odgovora: 24 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.