Saya tambahan dikit, kalau ddd itu short day, kalau mau lengkap pakai dddd
Untuk mengetahui hari dalam format indonesia memang bisa dilakukan dengan
mengubah regional setting, kalau misalnya regional setting nggak bisa diubah
dengan alasan tertentu maka kita harus mengakalinya.
Anda bisa mencari nomor hari dalam minggu (weekday), yang menjadi standard
dalam vb
1=vbSunday
2=vbMonday
3=vbTuesday
4=vbWednesday
5=vbThursday
6=vbFriday
7=vbSaturday
buat aja fungsi untuk mengubah hari dari weekday ke indonesia
function seperti dibawah ini :
Private Function cDayToIndonesian(dWeekDay As Long) As String
Select Case dWeekDay
Case 1
cDayToIndonesian = "Minggu"
Case 2
cDayToIndonesian = "Senin"
Case 3
cDayToIndonesian = "Selasa"
Case 4
cDayToIndonesian = "Rabu"
Case 5
cDayToIndonesian = "Kamis"
Case 6
cDayToIndonesian = "Jumat"
Case 7
cDayToIndonesian = "Sabtu"
End Select
End Function
cara penggunaannya :
Dim namaHari As String
namaHari = cDayToIndonesian(Weekday(#30/06/2008#)) ' result ="Senin"
Alternatif lain :
Anda langsung ubah ke format indonesia, kalau macro di excel sintaknya sebagai
berikut :
Selection.NumberFormat = "[$-421]dddd;@" ' convert ke format indonesia, 421
adalah code untuk indonesian
Selection.NumberFormat = "[$-408]d-mmm-yyyy;@" ' ' convert ke format yunani,
408 adalah code untuk yunani
tapi untuk diterapkan di vb nggak mau atau mungkin saya yang belum bisa
----- Original Message -----
From: Diana
To: [email protected]
Sent: Wednesday, June 11, 2008 4:38 PM
Subject: [indoprog-vb] Re: Cara Mengetahui Hari dari sebuah tanggal
maaf ralat...
format(now(),"ddd") seharus nya format ("11/06/2008","ddd")
--- In [email protected], "Diana" <[EMAIL PROTECTED]> wrote:
>
> pakai Format(Now(), "ddd") bro.jgn lupa regional and language
option
> nya di ubah ke indonesian.biasanya default nya english ( united
> states ) klo ga salah.
> semoga membantu...
>
> --- In [email protected], "Nazruddin Safaat Harahap"
> <uxc.wilis@> wrote:
> >
> > slam kenal semuanya...
> >
> > i baru2 belajar nih...
> >
> > gimana caranya mengetahui hari dari tgl
> >
> > ex
> > vtgl=11/06/2008 hari="Rabu"
> >
> > thx be 4 atas jwabnya....i tungguin...
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
[Non-text portions of this message have been removed]
