A cópia do código é a seguinte:
<%
'Mantenha as informações da declaração ao encaminhar, esta declaração não afetará sua velocidade!
*******************************
'Desenvolvedores: SMAN, NetFetch
Data de desenvolvimento: 2005-11-11
'Número da versão: ver0.1.1
'Site oficial: http: //www.sman.cnhttp: //www.ad0.cn
'E -mail: [email protected]@163.com
'DIÁRIO ONLINE QQ: 193412933050450
'Declaração de direitos autorais: não há direitos autorais, nenhuma pirataria é investigada, o código -fonte é divulgado, a versão pirateada é bem -vinda e você pode ir ao site oficial para buscar apoio.
'Se houver alguma melhoria, encaminhe ou feedback uma cópia para [email protected], [email protected], obrigado!
'Para obter instruções ou exemplos detalhados, consulte o anexo download ou entre em contato com o site ou e -mail oficial para fazer o download!
'*************************************************
ClassTateFunex
Privado_
Privatefirstweekofyear_
PrivatefirstdayofWeek_
Privatesubclass_initialize ()
d_ = date () 'Data atual padrão
FirstdayofWeek_ = 2'VBMONDAY
FirstWeekofyear_ = 1 'começa a partir da semana de 1º de janeiro.
Endsub
'Propriedade SetDate Data
PublicPropertyleTetDate (valor)
OnErrorReSumenext
Ifisnumeric (valor) então
valor = cint (valor)
Iflen (valor) <3thenValue = "20" & Right ("0" & Value, 2)
valor = valor e "-1"
Endif
d_ = cdate (valor)
EndProperty
'Propriedades FirstWeekofyear a primeira semana de cada ano (consulte o manual do VBS para obter detalhes)