เนื่องจากวันที่สั้น ๆ น้อยกว่า 2 หลักจึงมีผลต่อความงามเมื่อพิมพ์หน้าเว็บ ฟังก์ชั่นสองฟังก์ชั่นต่อไปนี้สามารถแก้ปัญหานี้ได้
2020-2-7 การเปลี่ยนแปลงวันที่สั้น 2020-02-07 วันที่ยาว
ฟังก์ชั่น fstime (คูณ) ปีสลัวเดือนวันถ้าเลน (ครั้ง) = 0 จากนั้นออกจากฟังก์ชั่นปี = ปี (ครั้ง) เดือน = ขวา ("0" & เดือน (ครั้ง), 2) วัน = ขวา ("0" & วัน (ครั้ง), 2) ครั้ง = ปี & "-" & "-"2020-2-7 23: 37: 5 วันที่สั้น ๆ เปลี่ยน 2020-02-07 23:37:05 วันที่ยาว
ฟังก์ชั่น fltime (คูณ) ปีสลัวเดือนวันชั่วโมงนาทีนาทีวินาทีถ้าเลน (ครั้ง) = 0 จากนั้นออกจากฟังก์ชั่นปี = ปี (ครั้ง): เดือน = ขวา ("0" & เดือน (ครั้ง), 2) วัน = ขวา ("0" & วัน (ครั้ง), 2): ชั่วโมง = ขวา (0 " fltime = ปี & "-" & months & "-" & days & "" & hours & ":" & นาที & ":" & secondsend ฟังก์ชั่นฟังก์ชันการแปลงรูปแบบวันที่ PW_SYS
<%REM PW_SYS วันที่ฟังก์ชั่นการแปลงรูปแบบฟังก์ชั่น DateTimeFormat (DateTime, Format) เลือก Case FormatCase "1" DatetimeFormat = "" & Year (DateTime) & Month (DateTime) & Month (DateTime) & Month "& Right (" & Day (DateTime), 2) วัน (dateTime), 2) & "วัน" กรณี "3" dateTimeFormat = "" & ปี (dateTime) & "-" & เดือน (dateTime) & "-" & ถูกต้อง ("0" & วัน (DateTime), 2) & "" "4" DateTimeFormat = "& ปี วัน (dateTime), 2) & "" กรณี "5" datetimeFormat = "" & เดือน (dateTime) & "/" & ถูกต้อง ("0" & วัน (dateTime), 2) & "" case "6" datetimeFormat = "" ปี (DateTime) & DateTime (DateTime) "& FormatDateTime (DateTime, 4) &" </font> "Case" 7 "Temp =" วันอาทิตย์วันจันทร์, วันอังคาร, วันพุธ, วันพฤหัสบดี, วันศุกร์, วันเสาร์, วันเสาร์, วันเสาร์ "Temp = split (temp,", ") DatetimeFormat = Temp (Weekright (" & Day (Datetime), 2) -1 -1) วัน (dateTime), 2) & "" กรณี "9" ถ้า len (ชั่วโมง (dateTime)) = 1 thenstr = "0" & ชั่วโมง (dateTime) elsest "10" dateTimeFormat = "" & ปี (dateTime) & "ปี" & เดือน (dateTime) & "เดือน" กรณี elsedateTimeFormat = dateTimeend selectend function%>รหัสโปรแกรม (วิธีการแปลงเดือนและวันที่ในรูปแบบ yyyy-mm-dd เป็นสองหลัก)
สลัววันนี้
วันนี้ = วันที่ 'หลีกเลี่ยงการโทรซ้ำ ๆ จนถึงวันที่ดังนั้นกำหนดค่าให้กับตัวแปร
วันนี้ = ปี (วันนี้) & "-" & ขวา ("0" & เดือน (วันนี้), 2) & "-" & ขวา ("0" & วัน (วันนี้), 2)
ฟังก์ชั่นที่เติมตำแหน่งใน ASP โดยอัตโนมัติ
Function formatsn (getNum, getbit) dim formatsnnum, formatsnpre, formatsnjformatsnnum = getbit - len (getnum) สำหรับ formatsnj = 1 ถึง formatsnnumformatsnpre = formatsnpre & "0" nextformatsn = formatsnpre & getnumend