La copia del código es la siguiente:
<%
'Mantenga esta información de la declaración al reenviar, ¡esta declaración no afectará su velocidad!
'****************************
'Desarrolladores: Sman, Netfetch
'Fecha de desarrollo: 2005-11-11
'Número de versión: Ver0.1.1
'Sitio web oficial: http: //www.sman.cnhttp: //www.ad0.cn
'Correo electrónico: [email protected]@163.com
'QQ en línea diario: 19341293332050450
'Declaración de derechos de autor: no hay derechos de autor, no se investiga la piratería, se revela el código fuente, la versión pirateada es bienvenida y puede ir al sitio web oficial para buscar apoyo.
'Si hay mejoras, reenvíe o comenta una copia a [email protected], [email protected], ¡gracias!
'Para obtener instrucciones o ejemplos detallados, consulte el archivo adjunto de descarga o comuníquese con el sitio web oficial o el correo electrónico para descargar.
'******************************************************************************
ClassdateFunex
Privado_
PrivateFirstWeekofyear_
PrivateFirstdayOfWeek_
Privatesubclass_initialize ()
d_ = date () 'Fecha de corriente predeterminada
FirstdayOfWeek_ = 2'vbmonday
FirstWeekOfyear_ = 1 'comienza a partir de la semana el 1 de enero.
Endsub
'Propiedad SetDate Fecha
PublicPropertyletSetDate (valor)
OnerrorResumEnext
Ifisnumérico (valor) entonces
valor = cint (valor)
Iflen (valor) <3ThenValue = "20" & Right ("0" y valor, 2)
valor = valor & "-1"
Endif
d_ = cdate (valor)
Endpropertía
'Propiedades FirstWeekofyear La primera semana de cada año (consulte el manual de VBS para más detalles)