Fungsi Ambil Nama-nama Hari pada delphi

function getHari(tgl:TDateTime):string;

begin
case DayOfWeek(Tgl) of
1 : Result := 'MINGGU';
2 : Result := 'SENIN';
3 : Result := 'SELASA';
4 : Result := 'RABU';
5 : Result := 'KAMIS';
6 : Result := 'JUMAT';
7 : Result := 'SABTU';
end;
end; KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI