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

TimeSpam funkcija u Delphiju 7

[es] :: Pascal / Delphi / Kylix :: TimeSpam funkcija u Delphiju 7

Strane: 1 2

[ Pregleda: 7150 | Odgovora: 31 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

FireProxy
Beograd

Član broj: 19043
Poruke: 77
*.sbb.co.yu.



Profil

icon Re: TimeSpam funkcija u Delphiju 716.12.2004. u 13:48 - pre 234 meseci
Ovo gubi svaki smisao..... neki su svadjalacki nastrojeni......

Ovo mi je drugi put da postujem nesto pod ovu kategoriju i opet sam se pokajao.
Najljubaznije hvala svima koji su ucestvovali u raspravi i toliko od mene.

Drugarski pozdrav (smislen ili besmislen......odlucite sami)
When the program is being tested, it is too late to make design changes.
 
Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
*.zaslon-telecom.si.



Profil

icon Re: TimeSpam funkcija u Delphiju 716.12.2004. u 14:07 - pre 234 meseci
Citat:
Ovo gubi svaki smisao..... neki su svadjalacki nastrojeni......


E, ***i ga, oterasmo coveka. Daj zombi iskuliraj malo, ako je covek vec precizno definisao problem nema potrebe da mu solimo pamet kako mu je ideja glupa...

ss.
When something is hard to do, then it's not worth doing.
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
213.244.208.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: TimeSpam funkcija u Delphiju 716.12.2004. u 14:25 - pre 234 meseci
Citat:
FireProxy: Ovo gubi svaki smisao..... neki su svadjalacki nastrojeni......


nadam se da nisi mislio na mene, ja sam zbunjeniji od dva ludaka u buretu
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

broker

Član broj: 2415
Poruke: 8514
212.62.59.*



+11 Profil

icon Re: TimeSpam funkcija u Delphiju 716.12.2004. u 15:36 - pre 234 meseci
Nema veze, ljudi se potrude da mu pomognu da resi problem a on im vraca sa "hvala ni za sta" a onda jos kaze i da je on to eto pitao tako reda radi da nesto pita... :)
 
Odgovor na temu

FireProxy
Beograd

Član broj: 19043
Poruke: 77
*.sbb.co.yu.



Profil

icon Re: TimeSpam funkcija u Delphiju 716.12.2004. u 15:46 - pre 234 meseci
Ta moja sala "hvala ni za sta" je bila upucena sasa-su sto je on i shvatio kao salu i u istom duhu mi odgovorio. Ne pravim se pametan i ne postavljam pitanje zato sto sve znam ili se pravim da sve znam pa kao da tebe broker-u preslisam...... Zna se zasto se postavljaju pitanja i otvaraju diskusije. Ne znam zasto moji post-ovi ovde generisu toliko negativne energije kod nekih clanova......
When the program is being tested, it is too late to make design changes.
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
213.244.208.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: TimeSpam funkcija u Delphiju 716.12.2004. u 18:44 - pre 234 meseci
nisi ti kriv, pitanje ti je na mestu...da si znao, ne bi pitao, jelte.
cudno mi je kako se tolika buka digla oko nicega, ljudi su slali primere ok. odjednom se pojavise one cudne konstante, teorije i sl.
i kao slag na tortu neko rece da i dalje nema resenja...funny, isn't it
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

Peke
Ventis Media Inc.
Novi Sad

Član broj: 24103
Poruke: 66
212.200.107.*

Sajt: www.mediamonkey.com


Profil

icon Re: TimeSpam funkcija u Delphiju 717.12.2004. u 12:47 - pre 234 meseci
E sta vam bi daj da resimo ovo.
Jos jedno resenje, nije optimizovano ali radi
Code:
Function ConvertMSToTime(MS: Integer):String;
Var
  Hr, Min,Sec: Integer;
Begin
  ms:= Trunc(ms/1000);
  hr  := trunc(ms/3600);
  min := trunc((ms-(hr*3600))/60);
  Sec := ms-((hr*3600)+(min*60));
  If min < 10 Then
    Result := intToStr(hr)+':0'+intToStr(Min)+':'
  Else
    Result := intToStr(hr)+':'+intToStr(Min)+':';
  If sec < 10 then
    Result := Result+'0'+intToStr(sec)
  else
    Result := Result+intToStr(sec);
End;

Function Traje(Vreme: TTimeStamp):String;
Begin
  Result := IntToStr(Vreme.Date)+' Dana i '+ConvertMSToTime(Vreme.Time);
End;


Dodaj DateUtils u USES. Ovaj primer uporedjuje datum kada je exe snimljen na HDD sa trenutnim datumom.

Evo i kako ces testirati:
Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  Proslo: TTimeStamp;
begin
  Proslo := MsecsToTimeStamp(MillisecondsBetween(now,FileDateToDateTime(FileAge(application.ExeName))));
  MessageDlg('Program radi: '+Traje(proslo), mtInformation, [mbOK], 0);
end;


Nadam se da sam pomogao I nema svadje niko nikog ovde netera da odgovori zar ne?
 
Odgovor na temu

-zombie-
Tomica Jovanovic
freelance programmer
ni.ac.yu

Član broj: 4128
Poruke: 3448
*.83.beocity.net.

Sajt: localhost


+5 Profil

icon Re: TimeSpam funkcija u Delphiju 717.12.2004. u 16:03 - pre 234 meseci
Citat:
sasas:
E, ***i ga, oterasmo coveka. Daj zombi iskuliraj malo, ako je covek vec precizno definisao problem nema potrebe da mu solimo pamet kako mu je ideja glupa...


ne znam šta ima da kuliram.. nisam nikog vređao ili ne-daj-bože napadao..

čovek je pitao i pokrenuo diskusiju, ja mu rekao da se to tako ne radi (i još mu naveo primere gde svako može to da proveri -- microsoft alati koji dolaze uz windows), a on se odmah našao uvređen..

nego, možda i jesi u pravu.. možda sam mogao i da oćutim.. možda sledeći put i hoću..


a btw: odgovora još nema, jer na tako postavljeno pitanje ni ne postoji tačan odgovor!
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.246.eunet.yu.



+1 Profil

icon Re: TimeSpam funkcija u Delphiju 718.12.2004. u 13:52 - pre 234 meseci
Cekajte bre!

Sta bi sa mojim skromnim predlogom? Jel to neko probao ili sam izgubio 5min bespotrebno :) ?
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: TimeSpam funkcija u Delphiju 718.12.2004. u 14:18 - pre 234 meseci
@morlic
Tvoja funkicja radi :) Samo izgleda bas i nije ono sto je FireProxy trazio cim hoce brze, hoce bolje, hoce jos :P Salim se :)

@FireProxy
Ako se desi ovako nesto. Program se pokrene 2. aprila u 00:00:00 i radi do 31. maja do 23:59:59 sta program treba da ispise?
Radim vec 58 dan, 23 sata, 59 minuta i 59 sekundi.
ili
Radim vec 1 mesec, 28 dana, 23 sata, 59 minuta i 59 sekundi.
ili
Radim vec 1 mesec, 27 dana, 23 sata, 59 minuta i 59 sekundi?
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.87.eunet.yu.



+1 Profil

icon Re: TimeSpam funkcija u Delphiju 718.12.2004. u 18:54 - pre 234 meseci
Mislim da je pod 2 ?

Kada je vreme u pitanju sto su duzi intervali merenja preciznost se prirodno smanjuje. Resenje bi bilo da se ide kroz kalendar, dan po dan i da se sumira broj dana. Na kraju se obradi i ostatak. Na ovaj nacin bi se dobio veoma precizan broj, samo sto mislim da tako niko ne radi zbog brzine racuna. Zato se koriste funkcije koje racunaju uzimajuci u obzir i gresku itd. Jednostavno, interval duzi od nekih mesec dana nije zgodan za preciznost. Tada se kaze "radio mesec dana", pa radio godinu i dva meseca", pa radio "dvadeset godina"...Koga na intervalima duzim od nekoliko dana zabole koliko jos sati? Osim ako nije program za parking servis :) Zbog svega toga ne bi trebalo niko da gubi zivce i da se raspravlja, pozivam sve na cisto tehnicku raspravu bez emocija.
 
Odgovor na temu

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.verat.net.



+1 Profil

icon Re: TimeSpam funkcija u Delphiju 728.02.2005. u 17:42 - pre 232 meseci
Znam da je malo zakasnelo :), ali bio sam inspirisan jednim novijim postom da odgovorim ;-). Skromno mislim da je ovo najjednostavnije & foolproof resenje u temi ;-)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  D, M, G, Sat, Min, Sek, MSek: Word;
  Dat: TDateTime;
begin
  Dat := EncodeDate(2005, 2, 28) + EncodeTime(12, 0, 0, 0);
  //12:00 28.2.2005

  DecodeDateTime(Now - Dat, G, M, D, Sat, Min, Sek, MSek);
  Dec(G, 1899);
  Dec(M, 12);
  Dec(D, 30);
  ShowMessage
  (
    IntToStr(G) + ' godina ' +
    IntToStr(M) + ' meseci ' +
    IntToStr(D) + ' dana ' +
    IntToStr(Sat) + ' sati ' +
    IntToStr(Min) + ' minuta ' +
    IntToStr(Sek) + ' sek. ' +
    IntToStr(MSek) + ' msek.'
  );


Radi za sve slucajeve sem za Dat > Now.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: TimeSpam funkcija u Delphiju 7

Strane: 1 2

[ Pregleda: 7150 | Odgovora: 31 ] > FB > Twit

Postavi temu Odgovori

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