La copie de code est la suivante:
<%
«Veuillez conserver les informations de cette déclaration lors du transfert, cette déclaration n'affectera pas votre vitesse!
'****************************** 【Classe d'extension de date】 Ver0.1.1 ***********************************
'Développeurs: SMAN, NetFetch
'Date de développement: 2005-11-11
'Numéro de version: Ver0.1.1
«Site officiel: http: //www.sman.cnhttp: //www.ad0.cn
'Courriel: Huihui3030 @ 126.comnetfetchstudio @ 163.com
'Daily Online QQ: 1934129332050450
«Énoncé du droit d'auteur: il n'y a pas de droit d'auteur, aucun piratage n'est étudié, le code source est divulgué, la version piratée est la bienvenue et vous êtes invités à vous rendre sur le site officiel pour demander un soutien.
«S'il y a des améliorations, veuillez transmettre ou faire vos commentaires une copie à [email protected], [email protected], merci!
«Pour des instructions ou des exemples détaillés, veuillez consulter la pièce jointe de téléchargement ou contacter le site officiel ou l'e-mail à télécharger!
'****************************************************************************************
Classdatefunex
Privé_
Privatefirstweekofyear_
Privatefirstdayofweek_
PRIVATESUBCLASS_INITIALIZE ()
d_ = date () 'Date actuelle par défaut
PremierDayofweek_ = 2'VBMonday
Firstweekofyear_ = 1 'commence par la semaine le 1er janvier.
Fin
'Date de réglage des propriétés
PublicProperTyletSetDate (valeur)
Onerrorresumenext
Ifisnumeric (valeur) puis
Valeur = Cint (valeur)
Iflen (valeur) <3ThenValue = "20" & droite ("0" et valeur, 2)
valeur = valeur et "- 1"
Endire
d_ = cdate (valeur)
Endproperty
'Propriétés Firstweekofyoear's première semaine de chaque année (reportez-vous au manuel VBS pour plus de détails)