Question

date函数如何在vba中使用

Answer 1

date为当日的日期，通常now为日期时间格式，而DATE 只去日期格式。

=Format("3/31/09", "mm-dd-yyyy")

关于此例中用到的Format函数的相关知识：

Format函数

根据有效的命名表达式来对指定的表达式进行格式化。

Format(expression[, format[, firstdayofweek[, firstweekofyear]]])

Format 函数具有下面几个参数：

expression 必要参数。任何有效的表达式。

format 可选参数。有效的命名表达式或用户自定义格式表达式。

firstdayofweek 可选参数。常数，表示一星期的第一天。

firstweekofyear 可选参数。常数，表示一年的第一周。

扩展资料：

Month 代表每年中月份的数字。如果所输入的月份大于 12，将从指定年份的一月份开始往上加算。例如：DATE(2008,14,2) 返回代表 2009 年 2 月 2 日的序列号。

如果所输入的月份小于 0，将从指定年份前一年的十二月份开始往下减去相应的月份数。例如：DATE(2008,-3,2) 返回代表 2007年 9 月 2 日的序列号。

Day 代表在该月份中第几天的数字。如果 day 大于该月份的最大天数，则将从指定月份的第一天开始往上累加。例如，DATE(2008,1,35) 返回代表 2008 年 2 月 4 日的序列号。

参考资料来源：百度百科-date函数

Answer 2

第一，vba日期和时间函数的基本用法

　　Excel中vba日期函数和时间函数分别是DATE和TIME。

　　VBA提供了三个无参数函数：Date、Time、Now，分别返回当前电脑系统的日期、时间、日期+时间。

　　下面的代码我们以三个消息框来结合日期和时间函数，分别提示当前的日期、时间。

Sub vba时间和日期函数()
MsgBox Date
MsgBox Time
MsgBox Now
End Sub
第二，使用vba日期和时间函数修改系统信息

　　下面这段代码将电脑右下角的日期和时间修改为2011年1月1日21:50:00。

Sub 修改时间和日期()
Time = "21:50:00"
Date = "2011年1月1日"
End Sub
第三，用消息框返回当前日期的年、月、日和当前时间的时、分、秒

Sub SmpYearHour()
'以对话框显示当前日期的年、月、日
MsgBox "当前日期：" & Date & Chr(10) & _
"年：" & Year(Date) & Chr(10) & _
"月：" & Month(Date) & Chr(10) & _
"日：" & Day(Date)
'以对话框显示当前时间的时、分、秒
MsgBox "当前时间：" & Time & Chr(10) & _
"时：" & Hour(Time) & Chr(10) & _
"分：" & Minute(Time) & Chr(10) & _
"秒：" & Second(Time)
End Sub
第四，其余的vba日期和时间函数列表

　　Timer：返回一个 Single，代表从午夜开始到现在经过的秒数。

　　TimeSerial(hour, minute, second)：返回一个 Variant (Date)，包含具有具体时、分、秒的时间。

　　DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

　　Second(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒。

　　Minute(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟。

　　Hour(time) 返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点。

　　Day(date)返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日。

　　Month(date) 返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月。

　　Year(date) 返回 Variant (Integer)，包含表示年份的整数。

　　Weekday(date, [firstdayofweek]) 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。

Answer 3

date为当日的日期
通常 now 为日期时间格式,,,而DATE 只去日期格式

Answer 4

dim i
i=date