Delphi – Funkcija Decode

Predstavićemo vam i pojasniti ugrađene Delphi-ijeve funkcije „Decode„. Ovo je funkcija koja vraća podatak o godini, mesecu i danu iz vrednosti tipa podatka TDateTime. Sintaksa same funkcije je sledeća:

procedure DecodeDate(Datum: TDateTime; var God, Mes, Dan: Word);

DecodeDate procedura razdvaja vrednosti specifikovane kao parametar Datum u vrednosti: godina, mesec i dan. Ukoliko je vrednost parametra TDateTime manja ili jednaka nuli, vrednosti: godina, mesec i dan, će biti postavljene na nulu.

Evo i jednog primera koji će vam pokazati kako se ova funkcija upotrebljava. Postavite na praznu formu novog Delphi projekta jedno komandno dugme i dve Label kontrole, te dodajte sledeći programski kod unutar događaja Click dugmeta:

procedure TForm1.Button1Click(Sender: TObject);

var

  Sada: TDateTime;

  Godina, Mesec, Dan, Sat, Min, Sek, MSec: Word;

 begin

  Sada:= Now;

  DecodeDate(Sada, Godina, Mesec, Dan);

  Label1.Caption := ‘Danas je ‘ + IntToStr(Dan) + ‘ dan meseca ‘

    + IntToStr(Mesec) + ‘ godine ‘ + IntToStr(Godina);

  DecodeTime(Sada, Sat, Min, Sek, MSec);

  Label2.Caption := ‘Sada je ‘ + IntToStr(Min) + ‘ minut, ‘

    + IntToStr(Sat)+’ sata.’;

end;

Kada iskompajlirate projekt, i kliknete na dugme, u dve linije (Label) predstaviće vam se podaci tekućem o vremenu, preko funkcija DecodeDate i DecodeTime.

Pratite Krstaricu na www.krstarica.com