Menampilakn tanggal dengan fungsi di delphi

Tutorial berikut ini akan menjelaskan bagaimana membuat Format Tanggal dengan delphi mengunakan sebuah fungsi, fungsi wajib diketahui oleh seorang perogrammer baik itu programmer Delphi, Visual Basic, WEB dengan PHP, Develover 2000 (Oracle) dan lain-lain. Atas dasar pemikiran diatas saya mencoba membuat fungsi untuk mengnampilkan tanggal yang hasil akhirnya adalah (Hari, Tanggal Bulan Tahun [ Rabu, 27 Agustus 1986]), tapi tanggal yang akan ditampilkan adalah tanggal pada hari yang aktif.

Sediakan sebuah aplikasi baru di delphi lalu simpan dech aplikasi-nya ya.
Setelah aplikasi anda buat jangan lupa implementasikan dibagian Public declarations fungsi dibawah ini :
function genTanggal(vDate: TDateTime): String;
Lalu dibagian implementation ketikan listing berikut (untuk deklarasi sebuah fungsi tadi)
function TForm1.genTanggal(vDate: TDateTime): String;
var Counter: byte;
const
NamaHari : Array[1..7] of string = (‘Minggu’, ‘Senin’, ‘Selasa’,
‘Rabu’, ‘Kamin’, ‘Jum”at’, ‘Sabtu’);
NamaBulan: Array[1..12] of String = (‘Januari’, ‘Februari’, ‘Maret’,
‘April’, ‘Mei’, ‘Juni’, ‘Juli’, ‘Agustus’,
‘September’, ‘Oktober’, ‘November’, ‘Desember’);
begin
For Counter := 1 to 7 do
LongDayNames[Counter]:=NamaHari[Counter];
For Counter := 1 to 12 do
LongMonthNames[Counter]:=NamaBulan[Counter];
Result := FormatdateTime(‘dddd, d mmmm yyyy’, vDate);
end;
Setelah fungsi anda buat tambahkan komponent DateTimePicker1 dan Edit1.Text, lalu dibagian FormCreate (klik 2x dulu form-NYA ya) ketikan listing dibawah ini :
Edit1.Text:=genTanggal(DateTimePicker1.Date);
Jalankan aplikasi-NYA, anda dapat melihat hasil-NYA.