Поскольку короткая дата составляет менее 2 цифр, это влияет на красоту при вводе веб -страниц. Следующие две функции могут решить эту проблему.
2020-2-7 Краткая дата изменения 2020-02-07 Долгое время
Функция fstime (время) Dim Годы, месяцы, дни, дни, если len (times) = 0, затем выход функции = год (время) месяцы = право («0» и месяц (время), 2) дни = справа («0» и день (время), 2) раз = годы и «»-и месяцы и "-" & Days fStime = функция TimesEnd
2020-2-7 23: 37: 5 Краткая дата изменения 2020-02-07 23:37:05 Долгий дат
Функция fltime (время) Dim Годы, месяцы, дни, часы, минуты, секунды, если Len (Times) = 0, затем выход функции = год (время): месяцы = справа («0» и месяц (время), 2) дни = правый («0» и день (время), 2): часы = правый («0» и час (время), 2) минуты = правый («0» и минута (время), 2): секунды = секунды) («Времена» («Время)» («Времена)» («Времена» («Времена)» («Время)». Fltime = годы и "-" & Mesonts & "-" & Days & "" & Days & ":" & Minots & ":" & Secondsend Function
Функция преобразования формата даты PW_SYS
<%Rem Pw_Sys Date Format Conversion Function Function DateTimeFormat(DateTime,Format)select case Formatcase "1"DateTimeFormat=""&year(DateTime)&month(DateTime)&month(DateTime)&month"&Right("0" & Day(DateTime),2)&"day"case "2"DateTimeFormat=""&month(DateTime)&"month"&Right("0" & Day(DateTime),2)&"day"case "3"DateTimeFormat=""&year(DateTime)&"-"&month(DateTime)&"-"&Right("0" & Day(DateTime),2)&"""case "4"DateTimeFormat=""&year(DateTime)&"/"&month(DateTime)&"/"&Right("0" & Day (DateTime), 2) & "" Case "5" DateTimeFormat = "" & Month (DateTime) & "/" & right ("0" & Day (DateTime), 2) и "" Case "6" DateTimeFormat = "" & Год (DateTime) и месяц (DateTime) и "Month" & Right ("0" & Day (DateTime) и "DATETIME) и" Font <Font <Font <Font <Font <Font <Font <Font <Font <Font <Font <Font <Font <Font) " "& FormatDateTime (DateTime, 4) и" </font> "case" 7 "temp =" воскресенье, понедельник, вторник, среда, четверг, пятница, суббота "temp = split (temp,") dateTimeformat = temp (Weekight ("0" & Day (DateTime), 2) -1). Day (dateTime), 2) & "" case "9", если len (dateTime)) = 1 thenstr = "0" & douct (dateTime) elsestr = hour (dateTime) End ifdateTimeformat = dateTimeFormat (dateTime, 1) и "&" & ":" & Minute). "10" DateTimeFormat = "" & Год (DateTime) и "Год" & Month (DateTime) и "Month" Case elsedateTimeformat = DateTimeEend Select Function%>Код программы (метод преобразования месяцев и дат в формате Yyyy-MM-DD в две цифры)
тусклый сегодня
Сегодня = дата 'избегайте повторяющихся вызовов на сегодняшний день, поэтому назначьте значения переменной
Сегодня = Год (сегодня) и «-" & right ("0" и месяц (сегодня), 2) и "-" & right ("0" & day (сегодня), 2)
Функция, которая автоматически заполняет позицию в ASP
Функция Formatsn (getNum, getBit) Dim formatsNUM, formatsNpre, formatsNjformatsnum = getbit - len (getNum) для formatsnj = 1 к formatsnumformatsnpre = formatsnpre & "0"