Fungsi Tanggal

*---------------
Function TANGGAL
*---------------
* Fungsi yang akan merubah tanggal yang dimasukkan menjadi
* bentuk tanggal yang diminta dalam Bahasa Indonesia
* berdasarkan nomor format
ParameterS tanggal, nomor
PRIVATE sekarang

DECLARE bulan[12], hari[7]
*-- Membuat variabel yang berisi nama bulan dalam bahasa Indonesia
bulan[ 1] = "Januari"
bulan[ 2] = "Pebruari"
bulan[ 3] = "Maret"
bulan[ 4] = "April"
bulan[ 5] = "Mei"
bulan[ 6] = "Juni"
bulan[ 7] = "Juli"
bulan[ 8] = "Agustus"
bulan[ 9] = "September"
bulan[10] = "Oktober"
bulan[11] = "Nopember"
bulan[12] = "Desember"

hari[1] = "Minggu"
hari[2] = "Senin"
hari[3] = "Selasa"
hari[4] = "Rabu"
hari[5] = "Kamis"
hari[6] = "Jum'at"
hari[7] = "Sabtu"

DO CASE
CASE nomor = 1
sekarang = hari[dow(tanggal)]+", "+LTRIM(STR(DAY(tanggal)))+ ;
" "+bulan[MONTH(tanggal)]+" "+LTRIM(STR(YEAR(tanggal)))
CASE nomor = 2
sekarang = LTRIM(STR(DAY(tanggal)))+" "+bulan[MONTH(tanggal)]+ ;
" "+LTRIM(STR(YEAR(tanggal)))
CASE nomor = 3
sekarang = bulan[MONTH(tanggal)]+" "+LTRIM(STR(YEAR(tanggal)))
CASE nomor = 4
sekarang = hari[dow(tanggal)]+", "+LTRIM(STR(DAY(tanggal)))+ ;
" "+SUBSTR(bulan[MONTH(tanggal)],1,3)+" " ;
+LTRIM(STR(YEAR(tanggal)))
OTHERWISE
sekarang = hari[dow(tanggal)]+", "+LTRIM(STR(DAY(tanggal)))+ ;
" "+bulan[MONTH(tanggal)]+" "+LTRIM(STR(YEAR(tanggal)))
ENDCASE

RETURN (sekarang) && Kembalikan Variabel sekarang
* ---------------