日期函數擴展類Ver0.1.1

2024-05-04 10:58:52

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

<%
'轉發時請保留此聲明信息,這段聲明不并會影響你的速度!
'**************************   【日期擴展類】Ver 0.1.1********************************
'開發人:        Sman、Net Fetch
'開發日期:        2005-11-11
'版本號:        Ver 0.1.1

'官方網站:http://www.sman.cn     http://www.ad0.cn
'電子郵件:huihui3030@126.com    NetFetchStudio@163.com
'每日在線QQ:19341293             32050450
'版權聲明:版權沒有,盜版不究,源碼公開,歡迎盜版,歡迎你到官方網站來尋求支持。
'如有任何改進之處，麻煩轉發或者反饋一份到 huihui3030@126.com、NetFetchStudio@163.com，Thanks!
'詳細使用說明或范例請見下載附件或到官方站點或Email聯系下載！
'************************************************************************************

Class DateFunEx

    Private d_
    Private firstweekofyear_
    Private firstdayofweek_

    Private Sub class_initialize()
        d_                     = date() '默認當前日期
        firstdayofweek_     = 2    'vbMonday
        firstweekofyear_     = 1    '由 1 月 1 日所在的星期開始。
    End Sub

    '屬性 setDate 日期
    Public Property Let setDate(value)
        On Error Resume Next
        If IsNumeric(value) Then
            value = Cint(value)
            If len(value)< 3 Then value = "20" & right("0"&value,2)
            value = value & "-1"
        End If
        d_ = cDate(value)
    End Property

    '屬性 firstweekofyear 每年的第一周(詳細設置請參照VBS手冊)
    Public Property Let firstweekofyear(value)
        firstweekofyear_ = cInt(value)
    End Property

上一篇：怎樣判斷一個盤上是否有文件

下一篇：讀取目錄下的所有文件(包括子目錄下的所有文件)

發表評論

共有條評論