Pozdrav,

uspeo sam, na osnovu viking13 i savkica da rešim problem izračunavanja od datuma do datuma. Hteo bih to proširiti sledećim, kad dobijem broj godina, meseci i dana hteo bih to sabrati sa već postojećim.

Dakle, ako već imam br.god = 5, br.mes = 10, br.dan = 12, a posle obračuna između dva datuma dobijem u nekim promenljivama br.god = 10, br.mes = 5, br.dan = 23, hteo bih to sabrati i dati konačan izveštaj. Nije problem sabrati nego rastaviti, kad se sabere: br.god = 15, br.mes = 15, br.dan = 35, sad to treba rastaviti na br.god = 16, br.mes = 4, br.dan = (4 ili 5)!?!

Da li je neko radio tako nešto i ako jeste, da li bi hteo na mom primeru objasniti kako to profesionalno odraditi, napominjem da sam koristio primer viking13.

Hvala unapred.

Problem je upravo ono 4 ili 5 o kome pričaš. Mada, ako ćemo iskreno može da bude i 7. :)

Da li je ikako moguće da umesto postojećeg zbira pamtiš početni datum?

Onda veoma jednostavno uporediš sadašnji sa početnim i nema sabiranja.

Em je mnogo lakše, em dobijaš tačne vrednosti bez obzira da li je upravo počeo mart ili septembar. :)

@viking13

Ne znam da li sam te razumeo najbolje, ali treba mi da kad na osnovu tvoje procedure dobijem tačan broj god, mes, dana to saberem sa već postojećim vrednostima.

Razumeo sam te, da uzmem prvi datum na osnovu kojeg sam dobio te vrednosti, pa onda to odradim sa recimo današnjim datumom i dobijem ukupan zbir!?!
Ako je tako, ne mogu to, jer ima prekida u datumu. Recimo, od 15.02.1978 - 22.05.1990., pa prekid, te onda od 10.10.2000. do 25.03.2006. Dakle, treba mi tačna razlika prva dva datuma, odnosno već imam tu razliku kao promenljive (br.god = 5, br.mes = 10, br.dan = 12, npr.) pa razlika druga dva, te sabrati te dve razlike i dobiti konačan zbir!?!

Ne znam da li sam bio jasan!?!

> Dakle, ako već imam br.god = 5, br.mes = 10, br.dan = 12, a posle obračuna između dva datuma dobijem u nekim promenljivama
> br.god = 10, br.mes = 5, br.dan = 23, hteo bih to sabrati i dati konačan izveštaj. Nije problem sabrati nego rastaviti, kad se
> sabere: br.god = 15, br.mes = 15, br.dan = 35, sad to treba rastaviti na br.god = 16, br.mes = 4, br.dan = (4 ili 5)!?!

Sabiranje staža, rekao bih. Elem ne znam postoji li neki pravilnik o tome, ako tražiš čisto rešenje, najbolje da konsultuješ nekog iskusnog knjigovođu ili penzionu službu. Kada dobiješ tačne informacije, lako je. Kreneš od broja dana i deliš sa 30 (31) i dobiješ broj koji dodaš na postojeći iznos meseci a ostak ti je broj dana. Dalje mesece deliš sa 12, cele godine dodaješ u godine a resto su meseci.

Sad kad mi je savkic otvorio oči sve mi je jasno i jasno mi je da ti moja ideja ne pomaže.

Kad saznaš tačne informacije javi se da nađemo najbolje rešenje.

Ako se za mesec uzima fiksni broj dana (recimo 30), onda ti ni moja početna funkcija nije dobra za tu svrhu. Jer će ti dati više dana za prelaz iz februara u mart, nego kad je u pitanju prelaz sa avgusta na septembar.

ako imas intervale koji su tdatetime tipa:
int1
int2
int3
int4

razliku nemoj da konvertujes nego je prosto oduzmi posto je tdatetime realni tip
znaci:

raz1:=abs(int1-int2);
raz2:=abs(int3-int4);
...

ukupno:=raz1+raz2+raz3....


pa onda koristis vikingovu funkciju za prikaz. Mozes da racunas od danasnjeg dana a mozes i od nekog drugog, mada mislim da treba da se racuna od int1 posto je to verovatno neki radni staz ili tako nesto

od danasnjeg dana:

DMYBetween(date, date+ukupno, Days, Months, Years)

a od int1:

DMYBetween(int1, int1+ukupno, Days, Months, Years)

Možemo početi odavde!?!

Milose, evo ti opet nesto u VB-u, pa ces se valjda snaci ;)


Duuuuugo koristim ovu funkciju.

a ti bi tako, pa onda probaj ovo:

Hvala na odgovoru.

@Whois
Jesi siguran da je ovo korektno:

Ne moram onako kako sam napisao, ako imate kvalitetnija rešenja, a imate verovatno, rado ću ih usvojiti.

PozZ

_{[Ovu poruku je menjao loshmiscg dana 30.01.2007. u 21:02 GMT+1]}

Pažljivo ovo opet pročitajte:



Igor je ovde pokrenuo jedno veoma važno pitanje koje nema veze sa programiranjem.

Dok ovo ne rešiš, svaka dalje diskusija je suvišna.

@viking13
Ok, trudim se da pažljivo pročitam svaki post.

Shvatam da tu ima, možda, zakonskih caka, etc., ali u ovom momentu meni treba samo ovo, rekao bih čisto rešenje, odnosno to su informacije koje imam:

Hipotetički, lice se zapošljava u neku ustanovu, recimo, ta ustanova zahteva od njega broj god, mes, dana radnog staža, ukupan koji je odradio - nebitni su datumi zasnivanja i prekida, firme gde je radio, koji donosi u ustanovu po zasnivanju radnog odnosa. Mi, ustanova, memorišemo te cifre i datum zasnivanja radnog odnosa. Teti iz kadrovske službe treba da, u svom programu, kad vrši pregled podataka o zaposlenom licu vidi donesen radni staž i datum zaposlenja u njihovoj instituciji. Trenutno joj ne treba ništa više nego radni staž (broj god, mes, dana) od dana zasnivanja radnog odnosa lica u toj instituciji do danas, plus staž sa kojim je lice došlo u instituciju, tako da dobijemo ukupan zbir.

BTW, raspitaću se malo, ukoliko ima nekih caka još na koje bih treba obratiti pažnju, javiću vam te ćemo korigovati, ali trenutno na ovome se zadržavam.

Hvala svima na diskusiji.

Radni staz izracunavas tako sto izracunas broj dana od prvog datuma prve sledece godine (ne one u kojoj je prvi datum) do poslednjeg datuma pretposlednje godine (do 12-og meseca)-->d.Zatim izracunas koliko je bilo prestupnih godina u tom intervalu-->ne ukljucujuci prvu i poslednju-->n. Izracunas razliku d-n. Izracunas koliko je bili dana u prvoj godini (to je lako)-->d1, a zatim koliko je bilo dana u poslednjoj godini-->d2. (bilo da su prva i poslednja prestupne ili ne) ==> RS=d-n+d1+d2 na kraju sve podelis sa 365.
RS=(d-n+d1+d2)/365. Radni staz mozes pretstaviti u obliku decimalnog broja ili kao ceo broj i ostatak dana(ili meseci i dana). Broj dana se uglavnom u svim izracunavanjima vezuje za 30 . Ako sabiras vise intervala radnog staza onda ih sabiras kao decimalne brojeve (pojedinacno) i tek na kraju sve pretvaras u godine mesece i dane. U principu-ako su kratki intervali tipa od 02.02.2004 do 03.03.2004 onda pojedinacno racunas broj dana. Na kraju sve delis sa 365. Npr 4,53g RS : 4 g, 1:12=0,53:x==>6,36 mes==>6 m ---e sad moras da upotrebis 30 dana. 1:30=0,36:x ==> 10,8 dana.

Procedura koju saljem bi trebalo da radi-ali proveri. Nema bas neke veze sa ovim objasnjenjem. Koristio sam je ranije-i tad je to moglo tako. Moraces da ispravis deo oko konvertovanja dana (pod uslovom da radi- stvarno nisam stigao da proverim). Potrebna su ti dva edita, button i label, tabela sa poljima od i do, source. Petljom u edite (ili dbedite) iz tabele smestas datume(od-do). Labela pokazuje rezultat. Rezultat cuvas u posebnoj promenljivoj kojoj dodajes svaku novu vrednost (dane). na kraju delis sa 365 i pretvaras u G,M,D.



procedure BrojDana(s1, s2:string; var s: string);
var
datum1, datum2: TDateTime;
posebnodana,ukupdana,dana:real;
dan,prvidanuprvgod,zavrsnidanuzavrgod,
godina,ukupgodina,prvagodina,zavrsnagodina,
ukupmeseci,mesec,prvimesuprvgod,zavrsnimesuzavrsgod:integer;
var DanaUMesecu: array [1..12] of integer;

begin
dana:=0;
ukupgodina:=0;
ukupdana:=0;
posebnodana:=0;
ukupmeseci:=0;

DanaUMesecu[1]:=31;
DanaUMesecu[2]:=28;
DanaUMesecu[3]:=31;
DanaUMesecu[4]:=30;
DanaUMesecu[5]:=31;
DanaUMesecu[6]:=30;
DanaUMesecu[7]:=31;
DanaUMesecu[8]:=31;
DanaUMesecu[9]:=30;
DanaUMesecu[10]:=31;
DanaUMesecu[11]:=30;
DanaUMesecu[12]:=31;

datum1 :=strtodate(s1);
datum2 :=strtodate(s2);

dana :=datum2 - datum1; //ukupan broj dana -sluzi samo za poredjenje sa ukupdana ako ti je potrebno

//za godine koje nisu pocetna i zavrsna
prvagodina:=strtoint(s1[7]+s1[8]+s1[9]+s1[10]);
zavrsnagodina:=strtoint(s2[7]+s2[8]+s2[9]+s2[10]);
//za prvu godinu za broj meseci (i dana)-->posto nema puni broj godina
prvimesuprvgod:=strtoint(s1[4]+s1[5]);
zavrsnimesuzavrsgod:=strtoint(s2[4]+s2[5]);
//za preostali broj dana-->u prvom mesecu prve godine i u zavrsnom mesecu zavrsne godine
prvidanuprvgod:=strtoint(s1[1]+s1[2]);
zavrsnidanuzavrgod:=strtoint(s2[1]+s2[2]);

if zavrsnagodina-prvagodina<=1 then//ako su godine jedna do druge ili je ista godina
begin

if zavrsnagodina-prvagodina=0 then//ako je ista godina
begin
ukupgodina:=0;
if zavrsnimesuzavrsgod-prvimesuprvgod<=1 then//ako su dani u dva meseca koji su jedan do drugog ili su isti
begin

ukupmeseci:=ukupmeseci+0;
ukupdana:=ukupdana+datum2 - datum1;
posebnodana:=posebnodana+ukupdana;


end
else
begin
for mesec:=prvimesuprvgod+1 to zavrsnimesuzavrsgod-1 do
begin
ukupmeseci:=ukupmeseci+1;
if ((mesec=2)and (prvagodina mod 4 = 0)) then ukupdana:=ukupdana+29
else ukupdana:=ukupdana+DanaUMesecu[mesec];
end;
ukupdana:=ukupdana+DanaUMesecu[prvimesuprvgod]-prvidanuprvgod+zavrsnidanuzavrgod;
posebnodana:=DanaUMesecu[prvimesuprvgod]-prvidanuprvgod+zavrsnidanuzavrgod;
end;
end
else
begin
if zavrsnagodina-prvagodina=1 then//ako su godine jedna do druge
begin
ukupgodina:=0;
for mesec:=prvimesuprvgod+1 to 12 do
begin
ukupmeseci:=ukupmeseci+1;
if ((mesec=2)and (prvagodina mod 4 = 0)) then ukupdana:=ukupdana+29
else ukupdana:=ukupdana+DanaUMesecu[mesec];
end ;

//za zavrsnu godinu za broj meseci (i dana)-->posto nema puni broj godina

for mesec:=1 to zavrsnimesuzavrsgod-1 do
begin
ukupmeseci:=ukupmeseci+1;
if ((mesec=2)and (prvagodina mod 4 = 0)) then ukupdana:=ukupdana+29
else ukupdana:=ukupdana+DanaUMesecu[mesec];
end ;
posebnodana:=DanaUMesecu[prvimesuprvgod]-prvidanuprvgod;
posebnodana:=posebnodana+zavrsnidanuzavrgod-1;

ukupdana:=ukupdana+DanaUMesecu[prvimesuprvgod]-prvidanuprvgod;
ukupdana:=ukupdana+zavrsnidanuzavrgod-1;
end

end

end
else
begin//***************************
for godina:=prvagodina+1 to zavrsnagodina-1 do
begin
if godina mod 4 =0 then ukupdana:=ukupdana+366 else ukupdana:=ukupdana+365;//koliko dana u godinama izmedju prve (prvog datuma) i poslednje(poslednjeg datuma)
ukupgodina:=ukupgodina+1;
end;


for mesec:=prvimesuprvgod+1 to 12 do
begin
ukupmeseci:=ukupmeseci+1;
if ((mesec=2)and (prvagodina mod 4 = 0)) then ukupdana:=ukupdana+29
else ukupdana:=ukupdana+DanaUMesecu[mesec];
end ;


for mesec:=1 to zavrsnimesuzavrsgod-1 do
begin
ukupmeseci:=ukupmeseci+1;
if ((mesec=2)and (prvagodina mod 4 = 0)) then ukupdana:=ukupdana+29
else ukupdana:=ukupdana+DanaUMesecu[mesec];
end ;



posebnodana:=DanaUMesecu[prvimesuprvgod]-prvidanuprvgod;
posebnodana:=posebnodana+zavrsnidanuzavrgod-1;

ukupdana:=ukupdana+DanaUMesecu[prvimesuprvgod]-prvidanuprvgod;
ukupdana:=ukupdana+zavrsnidanuzavrgod-1;

end;//***************************

//ovo je varijanta gde se gleda 30 dana u mesecu (i standardnih 28 u februaru)-to moras proveriti!!!!
{if zavrsnimesuzavrsgod<>3 then
begin
if posebnodana>=30 then
begin
posebnodana:=posebnodana-30;
ukupmeseci:=ukupmeseci+1;
end;
end
else
begin

if posebnodana>=28 then
begin
posebnodana:=posebnodana-28;
ukupmeseci:=ukupmeseci+1;
end;

end;}
//ovo je varijanta gde se gleda poslednji mesec (broj dana u poslednjem mesecu)
if posebnodana>=DanaUMesecu[zavrsnimesuzavrsgod] then
begin
posebnodana:=posebnodana-DanaUMesecu[zavrsnimesuzavrsgod];
ukupmeseci:=ukupmeseci+1;
end;

{//ovo je varijanta gde se gleda prvi mesec (broj dana u prvom mesecu)
if posebnodana>=DanaUMesecu[prvidanuprvgod] then
begin
posebnodana:=posebnodana-DanaUMesecu[prvidanuprvgod];
ukupmeseci:=ukupmeseci+1;
end;}
if ukupmeseci>=12 then
begin
ukupgodina:=ukupgodina+1;
ukupmeseci:=ukupmeseci-12;
end;


s:=inttostr(ukupgodina)+ ' godina '+inttostr(ukupmeseci)+ ' meseci '+floattostr(posebnodana)+ ' dana';

end;


procedure TForm1.ButtonStazClick(Sender: TObject);
var t:string;
begin
BrojDana(editdat1.text,editdat2.text,t);//ili dbedit1.text, dbedit2.text
label1.caption:=t;//pokazuje rezultat
end;

Nisam imao vremena da citam sve...Zelio bih da ti skrenem paznju da ima i prestupna godina. Pa ako to nisi
predvidio kompletiraj kod. pozz.

Što se tiče prebacivanja zbira dana u mesec + broj dana, ja lično mislim da treba uzeti u obzir broj dana u prethodnom mesecu od tekućeg.

Za mesece i godine nema dileme.

U skladu sa ovim i tvojim kodom sledeće 3 linije rade čitav posao:



Znači tekući datum umanjiš za dobijeni broj godina, meseci i dana i vidiš kolika je razlika sa sadašnjim datumom (da bi ti dane računao u odnosu na prethodni mesec).

-off topic-
Ja samo ne mogu da shvatim zašto ljudi vole da komplikuju i da izmišljaju toplu vodu. Bolje imati 2000 linija koda nego 3, jer to pokazuje da si više radio?

"Ja samo ne mogu da shvatim zašto ljudi vole da komplikuju i da izmišljaju toplu vodu. Bolje imati 2000 linija koda nego 3, jer to pokazuje da si više radio? "

Vise radio!!!! JEL TO NEKI KOMPLEKS? STA?

Ja stvarno (DAKLE STVARNO) ne razumem ljude koji sa "premalo reci" previse pametuju !!!!
Zasto ne pimeniti te tri linije koda u resiti coveku problem???!!!. Voleo bih da vidim to resenje bez dodatne korekcije. Ja licno mislim da problem moze da se resi sa par linija koda (ne vise od 10) ali me mrzi da radim nesto sto sam ranije vec odradio (na ovaj ili onaj nacin).

"ja lično mislim da treba uzeti u obzir broj dana u prethodnom mesecu od tekućeg."

Nema sta tu da se misli. Postoji tri nacina racunanja radnog staza [TACNIJE RACUNANJA RAZLIKE IZMEDJU DVA DATUMA] (sve sam ih naveo). Trenutno se RS izracunava SIGURNO tako sto se izracuna broj PUNIH GODINA broj PUNIH MESECI i preostali deo dana se pretvara u mesec ako je dana>30. Gde god se obratis za pomoc reci ce ti da nisu sigurni kako se to radi. Ali zato postoji matematicki postupak koji je napravljen mnogo pre nego je neko ovde uopste saznao za Delphi.

Dakle kome treba ovo je sigurno ispravno:
Izracunas koliko je bilo dana u prvoj godini d1
Izracunas koliko je bilo dana u poslednjoj godini d2
Izracunas broj punih godina i pretvoris u dane d (izmedju prve i poslednje godine)
Izracunas broj prestupnih godina n
RS=(d1+d2+d-n)/365
Moze i ovako ako neko zeli RS=(d1+d2+d+n)/366 (n je broj godina koje nisu prestupne)

Sadasnji postupak (validan) se svodi na ovaj primer: 4,53g RS :==> 4 g, 1:12=0,53:x==>6,36 mes==>6 m 1:30=0,36:x ==> 10,8 dana==>10 dana (ovo pretvoriti *U STO MANJE KODA*)

Ovo sve naravno moze da se skrati, malo koriguje postupak, ... ali okreni obrni sve se uvek svodi na ovo. Da li ce se to uraditi na ovaj ili onaj nacin svejedno je. Naravno bolje je koristiti vec definisane procedure ali I "bolje je bilo kakvo resenje danas nego super resenje sutra"

Ok. Necemo se prepirati. Ja samo ne razumem ljude koji zarad, pojma nemam cega, provociraju. "...Bolje imati 2000 linija koda nego 3, jer to pokazuje da si više radio? " Upitnik na kraju recenice ne ublazava ovo prethodno.
No uopste nije bitno. I ko je uopste ovde poredio duzinu koda. Nisam tvrdio da su tvoja resenja losa. Cak nisam tvrdio ni da je moja procedura potpuno ispravna jer nisam stigao da je proverim. Ja sam ranije radio program koji racuna broj godina radnog staza i to je procedura koja je nastala od ove-zato sam poslao ovo. Trenutno Cd na kojem se nalazi SIGURNO POTPUNO ISPRAVNA procedura nije kod mene inece bih proceduru poslao. Program je do PROSLE godine radio i niko se nije nesto bunio. Prosle godine po naredjenju "odozgo" dobili su nove programe za to. Moje misljenje je stvarno takvo da ako je coveku nesto hitno (a nekad moze biti), bolje mu pomoci koliko mozes, makar pomoc bila i losija nego mu uopste ne pomagati.
Jos na pocetku, rekao sam da je Savkic ponudio super resenje. Ako problem bolje sagledamo, na njegov kod (broj dana) dodas kod koji izracunava broj prestupnih godina i resio si gotovo ceo problem. Problem bi se sveo na RS=(d-n)/365 gde je n br.prest.god. Ono sto sam objasnio u vezi RS je na osnovu onoga sto sigurno znam.

No ukljucio sam se ne zbog "prethodnog" vec zbog ovog:

Matematicki to izgleda ovako (ALI OVDE NEMA NAGADJANJA NITI PRETPOSTAVKI-->100% JE TACNO):


ODUZIMANJE:
yyyy.mm.dd

|-->Ako je broj dana manji nego u staroj godini DODAJE SE BROJ DANA IZ PRETHODNOG MESECA
| (tacan broj dana prth. meseca,dakle ne 30)
|
2007.07.22
-2005.03.28
___________

==>

2007. 06. 22+30
-2005. 03. 28
___________________
2 g 3 m 24 d (ovo je metod koji se koristi godinama a smatra se ispravnim!)

SABIRANJE:
Ako ima vise ovakvih intervala:

g m d ===========>6 g 5 m + 57 dana (sad se koristi ono 30 dana)==> 6g 6m 27 dana
2 3 24
+ 3 2 21
+ 1 0 12
____________

Kod se moze smestiti u par redova-->ko ima vremena da pise.

Usput resenje ti je OK
Poz

Za Milosa: u radni staz ulazi uvek i prvi i poslednji upisani dan-to je sigurno. Nisam ostalo procitao-moguce je da ste sve priveli kraju. U svakom slucaju sve naj sa tim programom.
Poz

Ovu poruku je menjao milanescape dana 31.01.2007. u 18:19 GMT+1]



_{[Ovu poruku je menjao milanescape dana 31.01.2007. u 21:52 GMT+1]}

Malo prepravljena funkcija:



Za period ANow = 01.01.2007 i AThen = 01.01.2007 vraća 0, 0, 0
Za period ANow = 01.01.2007 i AThen = 10.01.2007 vraća 9, 0, 0
Za period ANow = 01.01.2007 i AThen = 01.01.2006 vraća 0, 0, 1

Ovo su realne razlike, što znači da funkcija konačno radi kako treba.

E sad, treba dodati jedan dan za tekući radni staž (da bi se računao i taj prvi dan, a ne samo razlika).

Posle ovog koda:



Za period ANow = 01.01.2007 i AThen = 01.01.2007 dobićeš 1, 0, 0
Za period ANow = 01.01.2007 i AThen = 10.01.2007 dobićeš 10, 0, 0
Za period ANow = 01.01.2007 i AThen = 01.01.2006 dobićeš 1, 0, 1

Razlika jeste tačno godinu dana, ali ako se računa i prvi dan to je onda jedan dan više.

Za period ANow = 31.12.2006 i AThen = 01.01.2006 dobićeš 0, 0, 1 odnosno tačno godinu dana.

Pošto vidim da si spustio loptu, red je da i ja to uradim. :)

Ako si se osetio prozvanim, ja ti se izvinjavam.

Što se tiče provociranja, evo ga savkic ziv i zdrav ovde, pa nek proba da se seti da li sam ja ikada provocirao bilo koga na yu.prog.delphi.

Što se tiče tvog koda, array DanaUMesecu mi neverovatno bode oči. Ali i sam kažeš da je procedura stara, tako da je moguće da si je pravio i pre nego što je napravljen DateUtils unit.



Zato sam i napisao proceduru da bi pomogao čoveku.

U želji da čovek što pre dobije rešenje sam i počeo da brljam, al sam sve ispeglao na kraju. :)



Apsolutno se slažem sa tobom, sem po pitanju rezultata. :)

Test datum ti je 2007.07.22, što znači da je prethodni mesec jun koji ima 30 dana, a ne 31.

Znači pravi rezultat dobijen ovim metodom je 2 g 3 m i 24 d.

DMYBetween kao rezultat daje takođe 2 g 3 m i 24 d.



Obzirom na test rezultate, ima kompletno rešenje sa sve uključenim tim prvim danom.

Ma ok je. Nisam zlopamtilo.
Procedura je napravljena pre 6 god, otprilike. Nije bio u pitanju DateUtils vec skoro isti problem o kojem smo diskutovali u ovoj temi-masa pribliznih vrednosti i ni na jedno da se oslonis a kratak rok za izradu-nema vremena za eksperimentisanje. E onda sam odlucio da proceduru napravim sam, sto inace uvek uradim kad me iznervira neka od ponudjenih proc. ili funkc. Slicno sam uradio i sa onim kodom za tzv "zastitu progr.". Glupo jeste i staromodno (j-ga), ali ja sam onda sigurniji u rezultat i to je to. Inace promenljive u proceduri su bile krace tipa g,m,d,,pd.zd.. pa sam ih ja na brzinu (replace) sinoc izmenjao i poslao-samo zbog razumljivosti-sto opet naravno ne moze da smanji kod niti da ga ulepsa jer je takav kakav je-inace je napravljen brzo i nikad vise nisam stigao ni da ga pregledam ni da ga proverim. U stvari da ne davim previse, kod sam inace poslao usput. Prevashodni cilj mi je bio da objasnim kako se racuna rad. staz.

>"Test datum ti je 2007.07.22, što znači da je prethodni mesec jun koji ima 30 dana, a ne 31."

Da.Ok. Ovo je bio previd- (cilj mi je bio da uzmem za primer mesec koji ima 31 a ne 30 dana i u brzini sam uzeo pogresan)- u pravu si, jun ima 30 dana.

>"DMYBetween kao rezultat daje takođe 2 g 3 m i 24 d."
...
>"Obzirom na test rezultate, ima kompletno rešenje sa sve uključenim tim prvim danom."

Ok ti je kod, i dobar.
Ali moras priznati-svi na pocetku tvrde da "to" moze u dva tri koraka i na kraju kad stvarno "stavis karte na sto" i stvarno sagledas problem, uvek ispadne makar duplo. A realno, za filovanje koda nikad nema vremena.

Nije mi bio cilj da se prepiremo-inace nisam taj tip i stvarno verujem da si ok programer
Izvinjenje svima koji nisu duzni da citaju "nepotrebno"

& naravno izmenicu ovo zbog onih koji ce ovo nekada iskoristiti

2007.07.22
-2005.03.28
___________
==>
2007. 06. 22+30
-2005. 03. 28
_____________
2 g 3 m 24 d

g m d ===========>6 g 5 m + 57 dana (sad se koristi ono 30 dana)==> 6g 6m 27 dana
2 3 24
+ 3 2 21
+ 1 0 12
_______

& poz

_{[Ovu poruku je menjao milanescape dana 31.01.2007. u 22:04 GMT+1]}

Čim se spomene datum, ja prvo ukucam uses DateUtils, pa tek onda počnem da razmišljam. :)

Cilj mi je bio da ljudima koji ne koriste taj unit skrenem pažnju na njega.

Za funkciju tipa izračunaj razliku dva datuma (i predstavi je kako god ti padne na pamet), i ma kako da je odradiš ne može da bude mnogo koda. Posebno ako koristiš DateUtils.


<sub>--off topic--
Moj biviš direktor mi je ispričao jednu fantastičnu priču vezanu za količinu koda.

U zemlji Srbiji pre ne znam ni ja koliko godina neko "pametan" je smislio da i programeri treba da imaju normu. Kako programeru odrediti normu, pa prema broju linija koda!?

Šta misliš šta je bilo prvo što su programeri zahvaćeni time uradili?

Napravili program koji generiše X (broj propisan normom) linija koda. :)

A onda lepo objasnili nadređenom: "Ja sam normu ispunio, sad me pusti da radim."</sub>

Pozdrav dobri ljudi,

želim prvo da Vam se zahvalim, svima, jer ste mi u najkraćem roku pomogli rešiti problem.

@viking13
Da, tvoja prerađena procedura i drugi deo koda koji je koristi urodile su plodom. Probao sam na par primera, datuma, ali moram još malo je istestirati, pre puštanja u rad, pa ako budem imao još neko pitanje postaviću ga već.

Sve najbolje,
Miloš.

Da se malo nadovezem, na osnovu ovih primera kako bi mogao od danasnjeg datuma odrediti datum za n meseci?
Unese se datum u jedan maskedit a u edit broj meseci pa u trecem editu dobijemo datum.

> Da se malo nadovezem, na osnovu ovih primera kako bi mogao od danasnjeg datuma odrediti datum za n meseci?
> Unese se datum u jedan maskedit a u edit broj meseci pa u trecem editu dobijemo datum.

IncMonth?

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.