Coba regional setting nya diganti ke indonesia
On 4/29/07, aries <[EMAIL PROTECTED]> wrote: > 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] > >
