Berikut ini adalah cara mengkonfersi tanggal ke hari dalam format Indonesia ("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu") di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form.2. Copy-kan coding berikut ke dalam editor form yang bertalian
Function NamaHari(dTanggal As Date) As String
Dim sHari As String
Dim aHari
aHari = Array("Minggu", "Senin", "Selasa", "Rabu", _
"Kamis", "Jumat", "Sabtu")
NamaHari = aHari(Abs(Weekday(dTanggal) - 1)) & ", " & _
"" & Format(dTanggal, "d mmmm yyyy")
End Function
'Misalnya, jika hari ini tanggal 27 Agustus 2002,
'maka akan ditampilkan: Selasa, 27 Agustus 2002
Private Sub Form_Load()
MsgBox NamaHari(Date) '--> tergantung hari ini...
'Untuk yang dua di bawah ini, jika "Regional Settings" di PC Anda
'menggunakan setting Indonesia. Sesuaikan dengan style setting di PC
'Anda...
MsgBox NamaHari(CDate("22 Januari 1973")) '--> Senin, 22 Januari 1973
MsgBox NamaHari(CDate("26 Januari 2002")) '--> Sabtu, 26 Januari 2002
'Untuk yang dua paling bawah ini, tidak terpengaruh dengan style setting
'Regional Settings di PC Anda. Formatnya mengikuti format Date Internasional
'yaitu: bulan-tanggal-tahun, karena diapit tanda 'kres' (#).
MsgBox NamaHari(CDate(#12/16/2002#)) '---> Senin, 16 Desember 2002
MsgBox NamaHari(CDate(#5/7/2002#)) '---> Selasa, 7 Mei 2002
End Sub
Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module
0 komentar:
Posting Komentar