coba yang ini :
Private Function HariIndonesia(ByVal Tanggal As Date) As String
Select Case Weekday(Tanggal)
Case 1
HariIndonesia = "Minggu"
Case 2
HariIndonesia = "Senin"
Case 3
HariIndonesia = "Selasa"
Case 4
HariIndonesia = "Rabu"
Case 5
HariIndonesia = "Kamis"
Case 6
HariIndonesia = "Jum'at"
Case Else
HariIndonesia = "Sabtu"
End Select
End Function
Private Function BulanIndonesia(ByVal Tanggal As Date) As String
Select Case Month(Tanggal)
Case 1
BulanIndonesia = "Januari"
Case 2
BulanIndonesia = "Februari"
Case 3
BulanIndonesia = "Maret"
Case 4
BulanIndonesia = "April"
Case 5
BulanIndonesia = "Mei"
Case 6
BulanIndonesia = "Juni"
Case 7
BulanIndonesia = "Juli"
Case 8
BulanIndonesia = "Agustus"
Case 9
BulanIndonesia = "September"
Case 10
BulanIndonesia = "Oktober"
Case 11
BulanIndonesia = "November"
Case 12
BulanIndonesia = "Desember"
End Select
End Function
Private Sub Form_Load()
Me.Caption = HariIndonesia(Now) & ", " & Day(Now) & " " &
BulanIndonesia(Now) & " " & Year(Now)
End Sub
Wahby <[EMAIL PROTECTED]> wrote:
Salam Kenal Semua say baru dalam Vb. mau naya nih gimana cara nya
menampilkan tanggal dengan bahasa indonesia dengan format
Senin, 23 April 2007, kalo menggunakan FormatDateTime(Now, vbLongDate) tampil
nya bahasa inggris Sunday, April 23, 2007 terima kasih sebelum nya
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
---------------------------------
Ahhh...imagining that irresistible "new car" smell?
Check outnew cars at Yahoo! Autos.
[Non-text portions of this message have been removed]
