Tips:Fungsi Konversi Hari dan Tanggal Power Builder

LogoSybase 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:

Ilmu Komputer

Tips:Fungsi Konversi Hari dan Tanggal Power Builder

Leave a Reply Cancel reply

Blogroll

Meta