Format LongDateName Indonesia

Menampilkan format tanggal dalam bahasa Indonesia, mis: 11/24/2010(mm/dd/yyyy) akan menjadi Jum’at, 24 September 2010.

Deklarasi fungsi:

function LongDateNameID(Tanggal: TDate): String;
const
  nHari: array[1..7] of String = ('Minggu','Senin','Selasa','Rabu','Kamis','Jum''at',
                                  'Sabtu');
  nBulan: array[1..12] of String = ('Januari','Februari','Maret','April','Mei',
                                    'Juni','Juli','Agustus','September','Oktober',
                                    'November','Desember');
var
  thn,bln,tgl: Word;
begin
  DecodeDate(Tanggal, thn, bln, tgl);
  Result:= nHari[DayOfWeek(Tanggal)] + ', ' + IntToStr(tgl) + ' ' + nBulan[bln] +
           ' ' + IntToStr(thn);
end;

Contoh implementasi:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Memo1.Lines do
  begin
    Clear;
    Add(LongDateNameID(DateTimePicker1.Date));
  end;
end;

Output:

Sample Output