الكود الأساسي
<٪ 'الوظيفة: وظيفة تاريخ متعدد الوظائف ، وظيفة: http://jorkin.reallodo.com/article.asp؟id=477Function formatdate (sdatetime ، srealdo) dim sjorkin sjorkin = getLocale () إذا لم يكن isdate (sdatetime) = الآن () sdateTime = cdate (sdatetime) حدد الحالة ucase (sreallydo &) الحالة 0 ، 1 ، 2 ، 3 ، 4 formatdate = formatdatetime (sdatetime ، sreallydo) case 00 formatdate = formatdate (sdatetime ، yyyy-mm-dd hh: mm: ss) case 01 formatdate = formatdate (sdatetime ، yyyyyyyyyyyyyyyyyyyy-mm-dd) (sdatetime ، hh: mm: ss) case 04 formatdate = formatdate (sdatetime ، hh: mm) iso8601 ، google ، sitemap '// iso8601 format ، تستخدم بشكل عام لـ googlesitemap ، +08: 00 هي المنطقة الزمنية. بالنسبة إلى RSS ، +0800 هي المنطقة الزمنية. '// Randomize String Randomize sjorkin = rnd () formatdate = formatDate (sdateTime ، yyyymmddhhmmss) & _ fix ((9 * 10^6 -1) * sjorkin) + 10^6 case oldatdate = sreallydo formatdate = applace (formatdate ، Yyyy ، Year (sdatetime)) formatdate = استبدال (formatdate ، dd ، اليمين (0 و day (sdatetime) ، 2)) formatdate = استبدال (formatdate ، HH ، اليمين (0 & ساعة (sdateTime) ، 2)) formatdate = استبدال (formatdate ، mm ، اليمين (0 و minute (sdatetime) ، 2)) formatdate = استبدال (formatdate ، ss ، اليمين (0 والثاني (sdatetime) ، 2)) formatdate = استبدال (formatdate ، yy ، اليمين (السنة (sdatetime) ، 2)) formatdate = استبدال (formatdate ، d ، اليوم (sdatetime)) formatdate = استبدال (formatdate ، H ، ساعة (sdatetime)) formatdate = استبدال (formatdate ، m ، دقيقة (sdatetime)) formatdate = استبدال (formatdate ، s ، ثانية (sdatetime)) إذا instrat -GB) FormatDate = استبدال (FormatDate ، EW ، Ucase (WeekdayName (Weekday (SdateTime) ، false)))) WeekdayName (أيام الأسبوع (sdateTime) ، false))) formatdate = استبدال (FormatDate ، EW ، Ucase (WeekdayName (Dayday (Sdatetime) ، true)))) (sjorkin) تنسيق آخر = استبدال (FormatDate ، W ، WeekdayName (أيام الأسبوع (sdateTime) ، خطأ)) formatdate = استبدال (FormatDate ، W ، WeekdayName (Weekday (SDATETime) ، TRUE)) END إذا كان instr (1 ، formatdate ، eMM ، 1)> 0 ثم setlocale (en-gb) formatdate = استبدال (formatdate ، eMM ، الشهر (الشهر (الشهر (الشهر (الشهر ( sdatetime) ، false))) formatdate = استبدال (formatdate ، emm ، monthname (الشهر (sdatetime) ، صحيح)) setlocale (sjorkin) تنسيق آخر = استبدال (formatdate ، mm ، يمين (0 والشهر (sdatetime) ، 2)) formatdate = استبدال (formatdate ، m ، الشهر (sdatetime)) نهاية إذا نهاية selectend وظيفة ٪>
الاستخدام كما يلي:
<٪ 'تاريخ تنسيق إلى iso8601 استجابة التنسيق. write (formatdate (2008-03-06 08:03:06 ، Sitemap)) تاريخ التنسيق إلى RFC822 استجابة. ، RSS)) "تاريخ التنسيق إلى (الأسبوع الإنجليزي ، الشهر الإنجليزية/اليوم/yyyy)) 'الاستجابة. write (formatdate (الآن () ، ew ، emm/dd/yyyy)' الشهر واليوم والساعة والاستجابة الثانية والثانية. write (formatdate (now () ، rnd)) ٪>
لمزيد من المعلومات ، يرجى مراجعة المقالات ذات الصلة التالية