TimeSpam funkcija u Delphiju 7

Re: TimeSpam funkcija u Delphiju 7 16.12.2004. u 14:48 · pre 266 meseci #21

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)

Potpis

When the program is being tested, it is too late to make design changes.

Re: TimeSpam funkcija u Delphiju 7 16.12.2004. u 15:07 · pre 266 meseci #22

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.

Potpis

When something is hard to do, then it's not worth doing.

Re: TimeSpam funkcija u Delphiju 7 16.12.2004. u 15:25 · pre 266 meseci #23

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

Potpis

Ride the rainbow, crack the sky

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

Re: TimeSpam funkcija u Delphiju 7 16.12.2004. u 16:36 · pre 266 meseci #24

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... :)

Re: TimeSpam funkcija u Delphiju 7 16.12.2004. u 16:46 · pre 266 meseci #25

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......

Potpis

When the program is being tested, it is too late to make design changes.

Re: TimeSpam funkcija u Delphiju 7 16.12.2004. u 19:44 · pre 266 meseci #26

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

Potpis

Ride the rainbow, crack the sky

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

Re: TimeSpam funkcija u Delphiju 7 17.12.2004. u 13:47 · pre 266 meseci #27

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?

Potpis

Pozdrav, Peke
Speed IO ADSL+ Rezultat
SpeedTest.NET ADSL+ Rezultat

Re: TimeSpam funkcija u Delphiju 7 17.12.2004. u 17:03 · pre 266 meseci #28

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!

Potpis

blogče :: unescaped beta^{^» ^{go-paste extenzija} ^» ^{reč dana: backup} ^» ^{bočne koalicije}}

Re: TimeSpam funkcija u Delphiju 7 18.12.2004. u 14:52 · pre 266 meseci #29

Cekajte bre!

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

Re: TimeSpam funkcija u Delphiju 7 18.12.2004. u 15:18 · pre 266 meseci #30

@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?

Potpis

Play Store

Re: TimeSpam funkcija u Delphiju 7 18.12.2004. u 19:54 · pre 266 meseci #31

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.

Re: TimeSpam funkcija u Delphiju 7 28.02.2005. u 18:42 · pre 263 meseca #32

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.

Forum kao aplikacija na telefonu

Srodne teme