Buat ngubah ke nama hari

Function nama_hari
Parameters _harike
_sayhari=''
Do Case
Case _harike=1
_sayhari='Minggu'
Case _harike=2
_sayhari='Senin'
Case _harike=3
_sayhari='Selasa'
Case _harike=4
_sayhari='Rabu'
Case _harike=5
_sayhari='Kamis'
Case _harike=6
_sayhari='Jumat'
Case _harike=7
_sayhari='Sabtu'
Endcase
Return _sayhari
Endfunc