نظرًا لأن التاريخ القصير أقل من رقمين ، فإنه يؤثر على الجمال عند كتابة صفحات الويب. يمكن للوظيفة التالية حل هذه المشكلة.
2020-2-7 تغييرات تاريخ قصير 2020-02-07 تاريخ طويل
وظيفة fStime (مرات) سنتات خافتة ، أشهر ، أيام إذا كانت (تايمز) = 0 ، ثم سنوات الخروج من سنة = السنة (الأوقات) شهور = يمين ("0" وشهر (أوقات) ، يومين = يمين ("0" و day (times) ، 2) مرات = سنوات و "و" و "و" وأيام fStime = وظائف Timesend2020-2-7 23: 37: 5 تغييرات تاريخ قصيرة 2020-02-07 23:37:05 تاريخ طويل
وظيفة fltime (الأوقات) خافتة ، شهور ، أيام ، ساعات ، دقائق ، ثوانٍ إذا كان len (times) = 0 ثم خروج سنة الخروج = السنة (الأوقات): شهور = اليمين ("0" وشهر (مرات) ، 2) أيام = "0" fltime = years & "-" & months & "-" & days & "" & Hours & ":" & Minots & ":" & Secondsend functionوظيفة تحويل تنسيق تاريخ PW_SYS
<٪ rem pw_sys تنسيق تاريخ التحويل دالة دالة dateTimeFormat (dateTime ، التنسيق) حدد تنسيق الحالة "1" dateTimeFormat = "" & year (dateTime) & month (dateTime) & month (dateTime) & month "&" و "و" 0 " اليوم (DateTime) ، 2) و "Day" Case "3" DateTimeFormat = "" "& Year (DateTime) و"-"& month (DateTime)-" & "و" 0 " اليوم (DateTime) ، 2) و "Case" 5 "DateTimeFormat =" "" & month (DateTime) و "/" & Right ("0" & day (dateTime) ، 2) و "case" 6 "dateTimeFormat =" "& year (dateTime) & month (dateTime) &" month "" "& formatDateTime (DateTime ، 4) و" </font> "Case" 7 "Temp =" Sunday ، Monday ، Sentary ، Fronled ، Friday ، Saturday "Temp = Temp (" ، ") DateTimeFormat = Temp (WeekRight (" 0 "& Day (DateTime) ، 2) -1) Case" 8 "DateTime =" اليوم (DateTime) ، 2) و "" الحالة "9" if len (ساعة (dateTime)) = 1 thenstr = "0" & hour (dateTime) elsester = hour (dateTime) end ifdateTimeFormat = dateTimeFormat (dateTime ، 1) "10" dateTimeFormat = "" & Year (DateTime) و "Year" & Month (DateTime) و "month" case elsedateTimeFormat = dateTimeend Selection function ٪>رمز البرنامج (طريقة لتحويل الأشهر والتواريخ بتنسيق yyyy-mm-dd إلى رقمين)
خافت اليوم
اليوم = التاريخ 'تجنب المكالمات المتكررة حتى الآن ، لذلك تعيين القيم لمتغير
اليوم = السنة (اليوم) و "-" & يمين ("0" والشهر (اليوم) ، 2) و "-" & "" 0 "& day (اليوم) ، 2)
وظيفة تملأ الموضع تلقائيًا في ASP
تنسيقات الوظائف (getNum ، getbit) dimatesnnum ، formatsnpre ، formatsnjformatsnnum = getbit - len (getNum) for tormatsnj = 1 to formatsnnumformatsnpre = formatsnpre & "0" nextformatsn = formatsnpre & getNumend function