Gunakan Fungsi ini. Taruh di Module.function NamaHari(Tanggal)
':::::::::::::::::::::::::::::::::::::::::::::::::::::
' Mengambil nama hari
':::::::::::::::::::::::::::::::::::::::::::::::::::::
select case weekday(Tanggal)
case 1
NamaHari = "Minggu"
case 2
NamaHari = "Senin"
case 3
NamaHari = "Selasa"
case 4
NamaHari = "Rabu"
case 5
NamaHari = "Kamis"
case 6
NamaHari = "Jum'at"
case 7
NamaHari = "Sabtu"
end select
end function
function NamaBulan(Bulan)
':::::::::::::::::::::::::::::::::::::::::::::::::::::
' Mengambil nama bulan
':::::::::::::::::::::::::::::::::::::::::::::::::::::
select case Bulan
case 1
NamaBulan = "Januari"
case 2
NamaBulan = "Februari"
case 3
NamaBulan = "Maret"
case 4
NamaBulan = "April"
case 5
NamaBulan = "Mei"
case 6
NamaBulan = "Juni"
case 7
NamaBulan = "Juli"
case 8
NamaBulan = "Agustus"
case 9
NamaBulan = "September"
case 10
NamaBulan = "Oktober"
case 11
NamaBulan = "Nopember"
case 12
NamaBulan = "Desember"
end select
end function
Tinggal dipanggil saja:NamaHari(now) & "," & day(now) &
NamaBulan(month(now)) & year(now) jadinya:Jumat, 9 Januari 2009Salam Hangat
dan Jabat Erat,Edy WIYONO> ----- Original Message -----
> From: "him mah" <[email protected]>
> To: <[email protected]>
> Sent: Thursday, January 08, 2009 22:12
> Subject: [belajar-access] Delete record all
>
>
>>
>> Terus kalau kita pingin format tanggal lengkap dalam bahasa indonesia
>> bagaimana, terutama bulannya
>>
>
