Salinan kode adalah sebagai berikut:
<%
'Harap simpan informasi pernyataan ini saat meneruskan, pernyataan ini tidak akan memengaruhi kecepatan Anda!
'****************************** 【Kelas Ekstensi Tanggal】 Ver0.1.1 *******************************
'Pengembang: Sman, Netfetch
'Tanggal Pengembangan: 2005-11-11
Nomor Versi: Ver0.1.1
'Situs web resmi: http: //www.sman.cnhttp: //www.ad0.cn
'Email: [email protected]@163.com
'Daily Online QQ: 1934129332050450
'Pernyataan Hak Cipta: Tidak ada hak cipta, tidak ada pembajakan yang diselidiki, kode sumber diungkapkan, versi bajakan diterima, dan Anda dipersilakan untuk pergi ke situs web resmi untuk mencari dukungan.
'Jika ada perbaikan, silakan teruskan atau umpan balik salinan ke [email protected], [email protected], terima kasih!
'Untuk instruksi atau contoh terperinci, silakan lihat lampiran unduhan atau hubungi situs web resmi atau email untuk diunduh!
'****************************************************************************
ClassDateFunex
Pribadi_
PrivateFirstWeekofyear_
PrivateFirstdayofweek_
Privatesubclass_initialize ()
d_ = date () 'Tanggal saat ini default
firstdayofweek_ = 2'vbmonday
FirstWeekofyear_ = 1 'dimulai dari minggu pada 1 Januari.
Endsub
'Tanggal SetDate Properti
PublicPropertyletSetDate (nilai)
OnerrorresumeNext
Ifisnumeric (nilai) lalu
nilai = cint (nilai)
Iflen (nilai) <3thenValue = "20" & kanan ("0" & nilai, 2)
nilai = nilai & "-1"
Endif
d_ = cdate (nilai)
Endproperty
'Properties FirstWeekofyear minggu pertama setiap tahun (lihat manual VBS untuk detailnya)