การคัดลอกรหัสมีดังนี้:
-
'โปรดเก็บข้อมูลคำสั่งนี้เมื่อส่งต่อคำสั่งนี้จะไม่ส่งผลกระทบต่อความเร็วของคุณ!
'**************************** 【วันที่ขยายชั้นเรียน】 ver0.1.1 ***************************************************************
'นักพัฒนา: sman, netfetch
'วันที่พัฒนา: 2005-11-11
'หมายเลขเวอร์ชัน: ver0.1.1
'เว็บไซต์อย่างเป็นทางการ: http: //www.sman.cnhttp: //www.ad0.cn
'อีเมล: [email protected]@163.com
'Daily Online QQ: 1934129332050450
'คำสั่งลิขสิทธิ์: ไม่มีลิขสิทธิ์ไม่มีการตรวจสอบการละเมิดลิขสิทธิ์ซอร์สโค้ดถูกเปิดเผยเวอร์ชันละเมิดลิขสิทธิ์ยินดีต้อนรับและคุณสามารถไปที่เว็บไซต์อย่างเป็นทางการเพื่อขอการสนับสนุน
'หากมีการปรับปรุงใด ๆ โปรดส่งต่อหรือตอบกลับสำเนาไปที่ [email protected], [email protected] ขอบคุณ!
'สำหรับคำแนะนำหรือตัวอย่างโดยละเอียดโปรดดูสิ่งที่แนบมาดาวน์โหลดหรือติดต่อเว็บไซต์อย่างเป็นทางการหรืออีเมลเพื่อดาวน์โหลด!
-
classdatefunex
ส่วนตัว_
privatefirstweekofyear_
privatefirstdayofweek_
Privatesubclass_initialize ()
d_ = วันที่ () 'วันที่เริ่มต้นปัจจุบัน
firstdayofweek_ = 2'vbmonday
FirstWeekOfYear_ = 1 'เริ่มต้นจากสัปดาห์ในวันที่ 1 มกราคม
enddub
'วันที่ตั้งค่าคุณสมบัติ
PublicPropertyLetSetDate (ค่า)
onerrorresumenext
ifisnumeric (ค่า) จากนั้น
value = cint (ค่า)
iflen (ค่า) <3thenvalue = "20" & ขวา ("0" & ค่า 2)
value = value & "-1"
endif
d_ = cdate (ค่า)
ปลายทาง
'Properties FirstWeekOfOfyear สัปดาห์แรกของแต่ละปี (ดูคู่มือ VBS สำหรับรายละเอียด)