MEMBUAT FUNGSI UNTUK MENAMPILKAN NAMA HARI DI DELPHI 7 | Tips & Trik | D...

Fungsi sederhana yang paling sering digunakan dalam pembuatan sebuah aplikasi adalah menampilkan nama hari dari sebuah tanggal.



Source ini saya buat di bahasa pemograman delphi 7, namun secara algoritma bisa dipakai dengan bahasa pemograman apapun.



Adapun source fungsinya adalah sebagai berikut :



function nama_hari(tgl:TDate):String;
var hari:Word;
begin
  hari := DayOfWeek(tgl);
  case hari of
    1 : Result:='Minggu';
    2 : Result:='Senin';
    3 : Result:='Selasa';
    4 : Result:='Rabu';
    5 : Result:='Kamis';
    6 : Result:='Jumat';
    7 : Result:='Sabtu';
  end;
end;



Misalkan anda mempunyai sebuah paramareter string "Hari" (String), maka cara menggunakan fungsinya adalah sebagai berikut :

Hari := nama_hari (25/06/1980);

Hasilnya adalah "Senin"



Untuk lebih jelasnya silahkan simak video berikut :