Fungsi yang dijelaskan berikut akan menghasilkan format hari dan tanggal dalam Bahasa Indonesia. Misalnya : Sabtu, 11 September 2007, dibawah ini disajikan 3 (tiga) fungsi yaitu untuk konversi hari, bulan dan tanggal ( gabungan tanggal,konversi bulan dan tahun. Fungsi ini dapat digunakan pada aplikasi yang dikembangkan dengan menggunakan Power Builder 5.0, 6.0, 7.0, 8.0, 9.0, 10.0 dan 11.0.

Fungsi Konversi Hari:
f_konervsi_hari(date d_tgl), dengan parameter d_tgl bertipe tanggal/date, dan dengan hasil fungsi berupa nama hari dalam Bahasa Indonesia, misalnya Senin.

string s_texttemp
integer i_hari
i_hari = daynumber ( d_tgl )
choose case i_hari
case 1
s_texttemp = ‘Minggu’
case 2
s_texttemp = ‘Senin’
case 3
s_texttemp = ‘Selasa’
case 4
s_texttemp = ‘Rabu’
case 5
s_texttemp = ‘Kamis’
case 6
s_texttemp = “Jum’at”
case 7
s_texttemp = ‘Sabtu’
end choose
return s_texttemp

Contoh pemanggilan fungsi tersebut:
DateTime daydate
daydate = DateTime(Today(), Now())
f_pk_konversi_hari(daydate)

Fungsi Konversi Bulan:
f_konervsi_bulan(date s_tgl), dengan parameter s_tgl bertipe string, dan dengan hasil fungsi berupa nama bulan dalam Bahasa Indonesia, misalnya Juni.

string s_texttemp
string s_bulan
s_bulan = mid ( s_tgl , 4, 2 )
choose case s_bulan
case ‘01′
s_texttemp = ‘Januari’
case ‘02′
s_texttemp = ‘Februari’
case ‘03′
s_texttemp = ‘Maret’
case ‘04′
s_texttemp = ‘April’
case ‘05′
s_texttemp = ‘Mei’
case ‘06′
s_texttemp = ‘Juni’
case ‘07′
s_texttemp = ‘Juli’
case ‘08′
s_texttemp = ‘Agustus’
case ‘09′
s_texttemp = ‘September’
case ‘10′
s_texttemp = ‘Oktober’
case ‘11′
s_texttemp = ‘November’
case ‘12′
s_texttemp = ‘Desember’
case else
s_texttemp = ‘00′
end choose
return s_texttemp

Contoh pemanggilan fungsi tersebut:
DateTime daydate
daydate = DateTime(Today(), Now())
f_pk_konversi_bulan(string(daydate,”dd-mm-yyyy”))

Fungsi Konversi Tanggal:
f_konervsi_tanggal(date s_tgl), dengan parameter s_tgl bertipe string, dan dengan hasil fungsi berupa tanggal yang telah terformat dd-mm-yyyy, misalnya 11 September 2007.

string s_texttemp
string s_tgltemp, s_blntemp, s_thntemp
s_tgltemp = mid ( s_tgl , 1, 2 )
s_blntemp = mid ( s_tgl , 4, 2 )
s_thntemp = mid ( s_tgl , 7, 4 )
s_texttemp = f_pk_konversi_bulan(s_tgl )
s_texttemp = s_tgltemp+” “+s_texttemp+” “+s_thntemp
return s_texttemp

Contoh pemanggilan fungsi tersebut:
DateTime daydate
daydate = DateTime(Today(), Now())
f_pk_konversi_tanggal(string(daydate,”dd-mm-yyyy”))

Untuk menggabungkan nama hari dan tanggal digunakan dengan pemanggilan kedua fungsi konversi hari dan tanggal, misalnya Selasa, 11 September 2007 :

DateTime daydate
daydate = DateTime(Today(), Now())
f_pk_konversi_hari(daydate)+’,'+f_pk_konversi_tanggal(string(daydate,”dd-mm-yyyy”))

Ketiga fungsi tersebut dapat anda download disini. Selamat mencoba.
Inlinks :

419 Views