نسخة الكود كما يلي:
<٪
"يرجى الاحتفاظ بمعلومات البيان هذه عند إعادة التوجيه ، لن يؤثر هذا البيان على سرعتك!
'**************************** 【فئة تمديد التاريخ】 ver0.1.1 *********************************
المطورين: Sman ، NetFetch
تاريخ التنمية: 2005-11-11
رقم الإصدار: Ver0.1.1
'الموقع الرسمي: http: //www.sman.cnhttp: //www.ad0.cn
'البريد الإلكتروني: [email protected]@163.com
'اليومية عبر الإنترنت QQ: 1934129332050450
"بيان حقوق الطبع والنشر: لا يوجد حقوق طبع ونشر ، لا يتم التحقيق في أي قرصنة ، يتم الكشف عن رمز المصدر ، والنسخة المقرصنة مرحب بها ، ويرحب بك للذهاب إلى الموقع الرسمي لطلب الدعم.
"إذا كان هناك أي تحسينات ، فيرجى إعادة توجيه نسخة إلى [email protected] ، [email protected] ، شكرًا!
للحصول على إرشادات أو أمثلة مفصلة ، يرجى الاطلاع على مرفق التنزيل أو الاتصال بالموقع الرسمي أو البريد الإلكتروني للتنزيل!
'********************************************************************************
ClassDateFunex
خاص_
privatefirstweekofyear_
privatefirstdayofweek_
privatesubclass_initialize ()
d_ = date () 'التاريخ الحالي الافتراضي
Firstdayofweek_ = 2'vbmonday
يبدأ FirstWeekofyear_ = 1 'من الأسبوع في 1 يناير.
ينتهي
"تاريخ مجموعة الممتلكات
publicpropertyletsetdate (القيمة)
onerrorresumenext
ifisnumeric (القيمة) ثم
القيمة = cint (القيمة)
iflen (القيمة) <3thenvalue = "20" واليمين ("0" والقيمة ، 2)
القيمة = القيمة و "-1"
Endif
d_ = cdate (القيمة)
endproperty
'Firstweekofyear في الأسبوع الأول من كل عام (ارجع إلى دليل VBS للحصول على التفاصيل)