Metode mengubah tanggal panjang dua digit di ASP

Karena tanggal pendek kurang dari 2 digit, itu mempengaruhi keindahan saat mengetik halaman web. Dua fungsi berikut dapat menyelesaikan masalah ini.

2020-2-7 Perubahan Tanggal Singkat 2020-02-07 Tanggal Panjang

 Fungsi fSTime (kali) redup tahun, bulan, hari jika len (kali) = 0 Kemudian keluar fungsi tahun = tahun (kali) bulan = benar ("0" & ​​bulan (kali), 2) hari = benar ("0" & ​​hari (kali), 2) kali = tahun & "-" & bulan & "-" & hari fStime = Fungsi Timesend Fungsi Waktu akhir Timesend = "Tahun &" & Bulan & "&"

2020-2-7 23: 37: 5 Perubahan Tanggal Singkat 2020-02-07 23:37:05 Tanggal Panjang

 Function FLtime(times) Dim years,months,days,hours,minutes,seconds if len(times)=0 then exit function years=year(times):months=right("0"&month(times),2) days=right("0"&day(times),2):hours=right("0"&hour(times),2) minutes=right("0"&minute(times),2):seconds=right("0"&second(times),2) FLTIME = Years & "-" & Bulan & "-" & Days & "" "& Hours &": "& Minutes &": "& Function SecondSend

Fungsi konversi format tanggal pw_sys

 <%Rem pw_sys format format fungsi konversi fungsi datetimeformat (datetime, format) pilih case formatcase "1" datetimeFormat = "" & tahun (datetime) & bulan (datetime) & bulan (datetime) & bulan "& benar (" 0 "& hari (datetime), 2) &" hari "case" hari "" "2" datetimeformat = "" & bulan (datetime) & "bulan" & benar ("0" & ​​hari (datetime), 2) & "hari" kasus "3" datetimeformat = "" & tahun (datetime) & "-" & bulan (datetime) & "& benar (" 0 & hari (datetime), 2) & "" "4" DateTimEformat = "" & Year (Datetime) & "/" & Month (DateTime) & "/" & Right ("0" & ​​Day (DateTime), 2) & "" Case "5" DateTimeformat = "" & Bulan (Datetime) & "/" & benar ("0" & ​​Day (DateTime), 2) & " "6" DateTimEformat = "" & Year (Datetime) & Month (Datetime) & "Month" & Right ("0" & ​​Day (Datetime), 2) & "Day <Font Color = Red>" & FormatDateTime (Datetime, 4) & "Jumat, Kasus" 7 "Temp =" Minggu, hari Senin, hari Senin, "Rabu)," hari Senin, "hari Senin," hari Senin, "hari Senin," hari Senin, "hari Senin," hari Senin, "hari Senin," hari Senin, "Rabu," hari Senin, "Rabu," Hari Rabu, Kamis, Kamis ", TEMP = SUBID, KAMU, KAMU, KAMU, KUBED SUMBODE, KUBOD, KAMIS, KUBOD, KAMIS, KAMU, KAMIS, KAMU, KAMIS, KAMU, KAMIS, KAMU, KAMIS, TEMP =, Datetimeformat = temp (weekright ("0" & ​​day (datetime), 2) -1) case "8" datetimeformat = "" & bulan (datetime) & "-" & right ("0" & ​​day (datetime), 2) & "case" 9 "if len (hour (datetime)) = 1 teensstr =" 0 "0" 10 "if len (hour (dateTime))) = 1 paripstr =" 0 "0" 2 "if len (hour (dateTime))) = 1 teensstr =" 0 "0" ifeTEMET (dateteMET (dATETIME)) = 1 THENSRRR = "0 ifDateTimEformat = DatetImeformat (Datetime, 1) & "" & str & ":" & Minute (datetime) case "10" datetimeformat = "" & tahun (datetime) & "tahun" & bulan (datetime) & "bulan" case elsedatetimat = datetimeend fungsi%%>

Kode program (metode untuk mengonversi bulan dan tanggal dalam format yyyy-mm-dd menjadi dua digit)

redup hari ini

hari ini = tanggal 'hindari panggilan berulang hingga saat ini, jadi tetapkan nilai ke variabel

Hari ini = Tahun (Hari Ini) & "-" & Benar ("0" & ​​Bulan (Hari Ini), 2) & "-" & Benar ("0" & ​​hari (hari ini), 2)

Fungsi yang secara otomatis mengisi posisi di ASP

 format fungsi (getnum, getbit) redup formatNnum, formatnpre, formatnjformatsnuM = getbit - len (getNum) untuk formatNj = 1 ke formatNnumformAsnpre = formatsnpre & "0" nextformatsn = formatsnpre & getNumend Function