Tips dan Trik Delphi - Tool

Function Namahari(tgl : Tdatetime) : String;
Begin
     case DayOfTheWeek(tgl) of
        0 : Result := 'Minggu';
        1 : Result := 'Senin';
        2 : Result := 'Selasa';
        3 : Result := 'Rabu';
        4 : Result := 'Kamis';
        5 : Result := 'Jumat';
        6 : Result := 'Sabtu';
        7 : Result := 'Minggu';
     end;
End;

Function Nama_hari(Const Hari : TDateTime) : String;
var
RsltHari : String;
const NamaHari: Array [1..7] of string = ('Minggu','Senin',
                                     'Selasa','Rabu','Kamis',
                                     'Jumat','Sabtu');
begin
   RsltHari := NamaHari[DayOfWeek(Hari)];
   result := rsltHari;
end;