コードコピーは次のとおりです。
<％
「転送時にこのステートメント情報を保管してください、このステートメントはあなたの速度に影響しません！
'****************************【日付延長クラス
'開発者：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]にコピーを転送またはフィードバックしてください。ありがとう！
「詳細な手順や例については、ダウンロード添付ファイルを参照するか、公式Webサイトまたはメールに連絡してダウンロードしてください！
'************************************************************************************
ClassDateFunex
プライベート_
privatefirstweekofyear_
privatefirstdayofweek_
privatesubclass_initialize（）
d_ = date（） 'デフォルトの現在の日付
FirstDayofWeek_ = 2'VbMonday
FirstWeekofyear_ = 1 '1月1日の週から始まります。
Endingub
'プロパティセットデート日
publicPropertyLetSetDate（値）
onerrorresumenext
ifisnumeric（value）then
value = cint（value）
iflen（value）<3thenvalue = "20"＆right（ "0"＆value、2）
value = value＆ "-1"
endif
d_ = cdate（value）
Endproperty
'Properties FirstWeekofyearの毎年の最初の週（詳細についてはVBSマニュアルを参照）