Méthode de modification des dates longues à deux chiffres dans ASP

Étant donné que la date courte est inférieure à 2 chiffres, elle affecte la beauté lors de la saisie des pages Web. Les deux fonctions suivantes peuvent résoudre ce problème.

2020-2-10 Modifications de la date à découvert 2020-02-07 Date de longue date

 Fonction Fstime (Times) Dim années, mois, jours If Len (Times) = 0 puis Sortez Fonction Années = Année (Times) Mois = Right ("0" et Mois (Times), 2) Days = Right ("0" & ​​Day (Times), 2) Times = Years & "-" & Mois & "-" & Days Fstime = TimesEnd Fonction

2020-2-7 23: 37: 5 Modifications de la date à découvert 2020-02-07 23:37:05 Date à long terme

 Fonction fltime (fois) Dimnes plus faibles, mois, jours, heures, minutes, secondes si Len (fois) = 0 puis sortir de la fonction des années = an (fois): mois = à droite ("0" et mois (fois), 2) jours = droite ("0" et jour (fois), 2): heures = droite ("0" et heure (fois), 2) minutes = à droite (0 "& Minute (Times), 2): SECONDS = REGOR Fltime = années & "-" & mois & "-" & Days & "" & Hours & ":" & Minutes & ":" & Secondsend Fonction

PW_SYS Fonction de conversion du format de date

 <% REM PW_SYS DATE FORMAT FONCTION DE LA fonction de conversion DateTimeFormat (DateTime, Format) SELECT FORMATCASE CAS Day (DateTime), 2) & "Day" Case "3" DateTimeFormat = "" & Year (DateTime) & "-" & Month (DateTime) & "-" & Right ("0" & ​​Day (Datetime), 2) & "" "case" 4 "DateTimeFormat =" "& Year (Datetime) &" / "& Month (Datetime)" Day (DateTime), 2) & "" Case "5" DateTimeFormat = "" & Month (Datetime) & "/" & Right ("0" & ​​Day (Datetime), 2) & "" Case "6" DatetimeFormat = "" & Datetime) & Month (Datetime) & "Month" & Right (0 "& Day (Datetime), 2) &" Day <Font Color = Red> "&FormatDateTime(DateTime,4)&"</font>"case "7" temp="Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday" temp=split(temp,",") DateTimeFormat=temp(WeekRight("0" & ​​​​Day(DateTime),2)-1)case "8"DateTimeFormat=""&month(DateTime)&"-"&Right("0" & Jour (DateTime), 2) & "" 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 Case Case Case Case Case) & "" & Str & ":" & Minute (Datetime) "10" DateTimeFormat = "" & Year (DateTime) & "Year" & Mois (Datetime) & "Month" Case ElSeDateTimeFormat = DateTimeend Selend Fonction%>

Code du programme (une méthode pour convertir des mois et des dates au format Yyyy-mm-dd en deux chiffres)

Tamiser aujourd'hui

aujourd'hui = date 'Évitez les appels répétés à ce jour, alors attribuez des valeurs à une variable

Aujourd'hui = année (aujourd'hui) & "-" & Right ("0" & ​​Mois (Today), 2) & "-" & Right ("0" & ​​Day (Today), 2)

Une fonction qui remplit automatiquement la position dans ASP

 Fonction Formatsn (getnum, getbit) dim formatsnnum, formatsnpre, formatsnjformatsnnum = getbit - len (getnum) pour formatsnj = 1 à formatsnnumformatsnpre = formatsnpre & "0" nextformatsn = formatsnpre & getNumend function