Penggunaan DateUtils Delphi #154

andrypein.net : oke lanjut lagi kita tentang delphi nya, kali ini tentang DateTime, sebelum permulaan tambahkan uses ‘DateUtils‘ pada bagian uses nya.

Bahannya adalah dua buah listbox,satu tombol dan satu label.

Tujuan dari koding sederhana ini supaya menambah sedikit pemahaman saja tentang bagaimana manipulasi tanggal waktu dan penggunaannya pada aplikasi.

Kodingnya hanya pada button onclick nya saja, berikut adalah kode nya :

procedure TForm1.Button1Click(Sender: TObject);
var
 hari,bulan : smallint;
 tanggal1,tanggal2,tanggal3: TDateTime;
begin
 tanggal1:=Yesterday;
 tanggal2:=Date;
 tanggal3:=Tomorrow;

 for bulan := 1 to 12 do
   begin
     listbox1.Items.Add(sysutils.FormatSettings.ShortMonthNames[bulan]+' '+sysutils.FormatSettings.LongMonthNames[bulan]);
   end;

 for hari := 1 to 7 do
  begin
   listbox2.Items.Add(sysutils.FormatSettings.ShortDayNames[hari]+' '+sysutils.FormatSettings.LongDayNames[hari]);
  end;



 label1.Caption:=datetostr(tanggal1)+#13#10+
                 datetostr(tanggal2)+#13#10+
                 datetostr(tanggal3)+#13#10;


end;

Hasil akhir nya bisa dilihat pada skrinsut dibawah :

Apps dateutils delphi bisa didonlod disini gan, sedoot.

Download

*AFK