DELPHI - Memformat Tanggal TDateTimePicker ke dalam berbagai model

Selamat malam pemirsa setia...!!! :D

Kali ini saya akan membagikan cara untuk memformat Datetimepicker-nya delphi kedalam format yang diinginkan

oke langsung aja...

1. Letakkan TDatetimepicker ke dalam form1
2. Tambahkan Combobox ke dalam form1
3. Tambahkan Label ke dalam form1

4. //Isi Comboboxnya (pilihan)
Dobel Click di form1 (boleh isi lewat properties Items milik combobox)

procedure TForm1.FormCreate(Sender: TObject);
begin
Combobox1.Items.Add('format dd/MM/yyyy   Contoh : 31/07/1992');
Combobox1.Items.Add('format dd MMMM yyyy Contoh : 31 July 1992');
Combobox1.Items.Add('format dd MM yy     Contoh : 31 07 92');
end;

5. Dobel click Comboboxnya

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case Combobox1.ItemIndex of
0 : Label1.Caption:=FormatDateTime('dd/MM/yy',DateTimePicker1.Date);
1 : Label1.Caption:=FormatDateTime('dd MMMM yyyy',DateTimePicker1.Date);
2 : Label1.Caption:=FormatDateTime('dd MM yy',DateTimePicker1.Date);
end;
end;

6. Prakteknya : Jalankan program, dan pilih comboboxnya.. nanti tanggalnya akan tampil di Label1
Untuk format lainnya silahkan agan ganti sendiri dibagian yang warna kuning

Oke sekian dan terimakasih telah berkunjung di giavano.blogspot.com