dear programmers,
share kali ini membuat hari dlm bhs kita sendiri
- buat project vb
- tambahkan 1 datetimepicker
- tambahkan 1 textbox
silahkan copy paste contoh ini ya.
Private Sub DTPicker1_Change()
Dim i As Byte
i = Weekday(DTPicker1.Value)
Select Case i
Case 1: Text1.Text = "Minggu"
Case 2: Text1.Text = "Senin"
Case 3: Text1.Text = "Selasa"
Case 4: Text1.Text = "Rabu"
Case 5: Text1.Text = "Kamis"
Case 6: Text1.Text = "Jumat"
Case 7: Text1.Text = "Sabtu"
End Select
End Sub
'--kalo mau nama bulan dalam bhs indo
'--tinggal ganti spt ini ;
month(DTPicker1.Value)
'--nama hari diganti nama bulan, misal text1.text="januari" dst....
moga bermanfaat bagi pemula, mahasiswa, dan yg baru belajar.
Salam
Lilis Suryani ArjaMaya
____________________________________________________________________________________
Need a vacation? Get great deals
to amazing places on Yahoo! Travel.
http://travel.yahoo.com/
