国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > JS > 正文

日期函數擴展類Ver0.1.1

2024-09-06 12:44:55
字體:
來源:轉載
供稿:網友

代碼如下:
<%
'轉發時請保留此聲明信息,這段聲明不并會影響你的速度!
'**************************   【日期擴展類】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手冊)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 高碑店市| 阿克苏市| 名山县| 长沙县| 定兴县| 石台县| 桃源县| 伊金霍洛旗| 焉耆| 扬州市| 思南县| 社会| 原平市| 丹阳市| 阳谷县| 宝山区| 潜江市| 景洪市| 无为县| 乌拉特中旗| 扬州市| 兴业县| 灌阳县| 平凉市| 开封县| 太和县| 四会市| 锡林郭勒盟| 江都市| 大同市| 平和县| 武清区| 武威市| 唐河县| 洛南县| 驻马店市| 湘乡市| 米林县| 吴旗县| 敦煌市| 金沙县|