VBA 日期函数

nnsea

date()
        '返回当前的系统日期
        msgbox("The Value of a : " & a)
    cdate(date)
        '将有效的日期和时间表达式转换为类型日期
        MsgBox ("The Value of a : " & CDate("Jan 01 2020"))
    DateAdd(interval,number,date)
        '将有效的日期和时间表达式转换为类型日期
        msgbox("Line 1 : " &DateAdd("h",1,"01-Jan-2013 12:00:00"))
    DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
        '返回两个指定的时间间隔之间的差值。
        msgbox("Line 2 : " &DateDiff("q","01-Jan-09 00:00:00","01-Jan-10 23:59:00"))
    DatePart(interval,date[,firstdayofweek[,firstweekofyear]])
        '返回给定日期的特定部分
        msgbox("Line 4 : " & DatePart("m","2013-01-15"))
    Day(date)
        '返回1到31之间的数字，表示指定日期的一天
        msgbox(Day("2018-06-30"))
    DateSerial(year,month,day)
        '返回指定的日期，月份和年份参数的日期
        msgbox(DateSerial(2018,5,10))
    FormatDateTime(date,format)
        '格式化并返回有效的日期和时间表达式
        msgbox("Line 5 : " & FormatDateTime("2018-08-15 20:25",4))
    IsDate(expression)
        '判断是否为日期，它都会返回一个布尔值
           msgbox("Line 1 : " & IsDate("Nov 03, 1950"))
    Month(date)
        '返回1到12之间的数字，表示指定日期的月份。
        msgbox("当前的月份的值是："&Month("2018-06-30"))
    Year(date)
        '返回一个表示指定日期的年份的整数
        msgbox(Year("2018-06-30"))
    MonthName(month[,toabbreviate])
        '回指定日期的月份名称。
        msgbox("Line 1 : " & MonthName(01,True))
        msgbox("Line 2 : " & MonthName(01,false))
    Weekday(date[,firstdayofweek])
        '返回一个从1到7的整数，表示指定日期的星期几。
        msgbox("Line 1: " & Weekday("2013-05-16",1))
    WeekdayName(weekday[,abbreviate[,firstdayofweek]])
        '返回指定日期的工作日名称
        msgbox("Line 2 : " &WeekdayName(2,True))
        msgbox("Line 3 : " &WeekdayName(1,False))
        msgbox("Line 4 : " &WeekdayName(2,True,0))
        msgbox("Line 5 : " &WeekdayName(1,False,1))