Debido a que la fecha corta es inferior a 2 dígitos, afecta la belleza al escribir páginas web. Las siguientes dos funciones pueden resolver este problema.
2020-2-7 Cambios de fecha corta 2020-02-07 Fecha larga
Función fstime (tiempos) dim años, meses, días si len (tiempos) = 0 luego salga de la función años = año (tiempos) meses = derecha ("0" y mes (tiempos), 2) días = correcto ("0" y día (tiempos), 2) Times = años & "-" & meses & "-" & días FSTIME = Timesend Funciónend2020-2-7 23: 37: 5 Cambios de fecha corta 2020-02-07 23:37:05 Fecha larga
Función fltime (tiempos) dim años, meses, días, horas, minutos, segundos si len (tiempos) = 0 salga de la función año = año (tiempos): meses = derecha ("0" y mes (tiempos), 2) días = días ("0" & Day (Times), 2): Hours = Right ("0" & Hour (Times), 2) minutos = derecho ("0" & Minute (Times), 2): Seconds (Right (derecha ("" Times), 2) minutos = Right ("0" & Minute (Times), 2): Seconds (Right (Right ("" "Times), 2) minutos = Right (" 0 "& Minute (Times), 2): Segundo (Right (derecha (" 0 "), 2), 2) minutos = Right (" 0 "& Minute (Times), 2): Seconds (Rights (Right (" "), 2), 2), 2) Fltime = años & "-" & meses & "-" & días & "" & Hours & ":" & minutos & ":" & Secondsend FunciónFunción de conversión de formato de fecha PW_SYS
<%REM PW_SYS Formación de conversión de formato de fecha DateTimeFormat (DateTime, Format) Seleccione Case Formatcase "1" DatetimeFormat = "" & Year (Datetime) & Month (Datetime) & Month (DateTime) & Month "& Right (" 0 "& Day (Datetime), 2) &" Day "Case" 2 "DetTimeFormat =" & Month (DeteaTime (y "y" y "y" y "y" y "y" y "y" y "y" y "y" y "y" y ". Día (dateTime), 2) & "Day" Case "3" datTimeFormat = "" & Year (datetime) & "-" & mes (datetime) & "-" & right ("0" & day (datetime), 2) & "" Case "4" dateTimeFormat = "" & Year (dateTime) & "/" & mes (dateTime) & "/" & "& derecha (" 0 "y" 0 "y" 0 "y" 0 "y" 0 "y" 0 "y" 0 "0" 0 "y" 0 "y" 0 "y" 0 "0" y "0" 0 "0" 0 "y" 0 "0" 0 "0" 0 "0" y "0" 0 "0" 0 "0" Día (DateTime), 2) y "" Case "5" datTimeFormat = "" & mes (Datetime) & "/" & Right ("0" & Day (Datetime), 2) & "" Case "6" DatetimeMat = "" & Year (Datetime) & Month (Datetime) & "Mes" & Right ("0" & Day (Datetime), 2) y "Día <Font Color) y Mes (DataTime) &" Mes "& Right (" 0 "& Day (Datetime), 2), 2) y" Día <Font Color) y Mes (DataTime) & "Mes" & Right ("0" & Day (Datetime), 2) y "Día <Font Color) "& FormatDateTime (DateTime, 4) &" </font> "Case" 7 "temp =" Domingo, lunes, martes, miércoles, jueves, viernes, sábado "Temp = Split (Temp,", ") DatetimeSat = Temp (Weekright (" 0 "& Day (Datetime), 2) -1) Case CaseFormal Día (DateTime), 2) y "" Case "9" if Len (Hour (DateTime)) = 1 Thenstr = "0" & Hour (DateTime) ElSestr = Hour (DateTime) end ifdateTimeFormat = DateTimeFormat (Datetime, 1) & "" & Str & ":" & Minute (DateTime) Case Case Case "10" datTimeFormat = "" & Year (dateTime) y "año" y mes (dateTime) y "mes" caso ElsedateTimeFormat = DateTimeend SelectEd Función%>Código de programa (un método para convertir meses y fechas en formato YYYY-MM-DD en dos dígitos)
atenuar hoy
hoy = fecha 'Evite las llamadas repetidas hasta la fecha, así que asigne valores a una variable
hoy = año (hoy) y "-" y derecho ("0" y mes (hoy), 2) y "-" y derecho ("0" y día (hoy), 2)
Una función que llena automáticamente la posición en ASP
FUNCIÓN FORMATATSN (GetNum, GetBit) Dim FormatsNnum, FormatSnpre, FormatsNjFormatsNnum = GetBit - Len (GetNum) para FormatsNJ = 1 a FormatSnNUMFORMATSNPRE = FormatsNpre & "0" NextFormatsn = FormatsNpre & GetNumend Función