Tanggal dalam Bhs Indonesia

<%
'--------------------------------------------------------------------
'File ini bernama : script_waktu_indonesia.asp
' Fungsi : untuk menampilkan nama bulan dalam bahasa Indonesia
'Tanggal Pembuatan : Senin, 30 Juni 2003 Pkl. 13:29 Wib
' Modifikasi : Selasa, 07 Juni 2005 Pkl. 13:46 Wib
' Programmed By : Armansyah

'--------------------------------------------------------------------

Function TampilBulan(b)
Dim bulan
bulan = array("Januari","Pebruari", "Maret", "April", _
"Mei", "Juni", "Juli", "Agustus", "September", _
"Oktober", "November", "Desember")
TampilBulan = bulan(b)
end function

' Function ini berguna untuk menampilkan
' nama hari dalam bahasa Indonesia

function TampilHari(c)
Dim hari
hari = array("Minggu", "Senin","Selasa","Rabu","Kamis",_
"Jumat","Sabtu")
TampilHari = hari(c)
end function

function FormatTanggal(tgl)
Dim s
s = TampilHari(DatePart("w",tgl)-1)
s = s & " " & DatePart("d", tgl)
s = s & " " & TampilBulan(DatePart("m", tgl)-1)
s = s & " " & DatePart("yyyy", tgl)
FormatTanggal = s
end function
%>