Mungkin bisa jadi alternatif untuk fungsi nama harinya spt ini: =Choose(Weekday([Tanggal]),"Minggu","Senin","Selasa","Rabu","Kamis","jum'at","Sabtu") ini saya coba pada control source textbox
Salam Nurhasim Edy WIYONO <[email protected]> wrote: 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 >> >
