<%
'Konversikan bulan ke bahasa Mandarin
Fungsi MonthToCH(TheMonth)
Redupkan mm
mm=split("Satu, dua, tiga, empat, lima, enam, tujuh, delapan, sembilan, sepuluh, sebelas, dua belas",,")
Jika IsNumerik(Bulan) Lalu
MonthToCH = mm(TheMonth-1) & "bulan"
Kalau tidak
MonthToCH = "bulan"
Akhiri Jika
Fungsi Akhir
'Konversikan bulan ke bahasa Inggris panjang
Fungsi MonthToLongEN(TheMonth)
Redupkan mm
mm=split("Januari,Februari,Maret,April,Mei,Juni,Juli,Agustus,September,Oktober,November,Desember","")
Jika IsNumerik(Bulan) Lalu
MonthToLongEN = mm(Bulan-1)
Kalau tidak
BulanToLongEN = " "
Akhiri Jika
Fungsi Akhir
'Konversikan bulan ke bahasa Inggris singkat
Fungsi MonthToShortEN(TheMonth)
Redupkan mm
mm=split("Jan,Feb,Mar,Apr,Mei,Jun,Jul,Agt,Sep,Okt,Nov,Des",,")
Jika IsNumerik(Bulan) Lalu
BulanToShortEN = mm(Bulan-1)
Kalau tidak
BulanToShortEN = " "
Akhiri Jika
Fungsi Akhir
%>