fungsi fillzero: Jika kedua tanggal, bulan dan hari, adalah angka ganjil, tambahkan 0 di depannya. Misalnya, format umum tanggal 3 Maret 2011 adalah 3-3-2011 diubah menjadi format seperti 03-03-2011 melalui suatu fungsi. Copy kode kodenya sebagai berikut:
fungsi publik fillzero(l1)
jika len(l1)=1 maka
isi nol=0&l1
kalau tidak
isi nol=l1
berakhir jika
fungsi akhir
Contoh penggunaan:
Copy kode kodenya sebagai berikut:
respon tahun(sekarang)&bulan(sekarang)&hari(sekarang) hasil:201116
tahun respons (sekarang) & isi nol (bulan (sekarang)) & isi nol (hari (sekarang)) Hasil tampilan: 20110106
Cara mengontrol tampilan format tanggal panjang dan format tanggal pendek:
Tanggal Singkat:FORMATDATETIME(DATE,vbShortDate)
Tanggal Panjang:FORMATDATETIME(DATE,vbLongDate)
Saat menampilkan tanggal berdasarkan lokal Inggris (AS), tanggal tersebut ditampilkan dalam format berikut:
Tanggal Singkat: 7/9/97
Tanggal Panjang:Rabu, 09 Juli 1997
Catatan: Format tanggal pendek tampak sama persis dengan tanpa format apa pun. Secara default, tanggal ditampilkan dalam format tanggal pendek.
Cara menggunakan fungsi FORMATDATETIME() untuk memanipulasi waktu:
Waktu Singkat:FORMATDATETIME(TIME,vbShortTime)
Lama:FORMATDATETIME(TIME,vbLongTime)
Saat menampilkan waktu dalam bahasa Inggris (Amerika Serikat), format waktu adalah sebagai berikut:
Waktu Singkat: 03:20
Lama: 3:20:08
Copy kode kodenya sebagai berikut:
<%
fungsi IsiZero(str)
ttt=str
jika len(str)=1 maka
ttt=0&str
berakhir jika
IsiZero=ttt
fungsi akhir
'Tanggal konversi, tambahkan nol ke satu digit 2-1-2003 --> 02-01-2003
fungsi ConvertDate (tDate)
ttt=tTanggal
jika isdate(tDate) maka
ttt=tahun(tTanggal) & - & FillZero(bulan(tTanggal)) & - & FillZero(hari(tTanggal))
berakhir jika
Tanggal Konversi=ttt
fungsi akhir
'Masukkan string tanggal dan waktu, ubah menjadi empat digit dewasa, dan dua digit lainnya menjadi string tanggal dan waktu baru
fungsi ConvertDateTime (tDateTime)
ttt=tTanggalWaktu
jika isdate(tDateTime) maka
ttt=tahun(tDateTime) & - & FillZero(bulan(tDateTime)) & - & FillZero(hari(tDateTime)) & & FillZero(cstr(jam(tDateTime))) & : & FillZero(cstr(menit(tDateTime)) ) & : & FillZero(cstr(detik(tDateTime)))
berakhir jika
ConvertDateTime=ttt
fungsi akhir
%>