date（）函数的用法？

liyi8977

我想将某一工作表中某一单元格的日期和today（）相减，看是否差一个月？不知可行否，应如何写代码。特别是不知道在date函数中工作表名应如何表达？各位帮忙啊

cola

datedif()+date

liyi8977

什么意思啊，看不懂，帮助里也没有

cola

DateDiff 函数





   


   





返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。


语法


DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])





DateDiff 函数语法中有下列命名参数：











部分


描述





interval


必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔





Date1□date2


必要；Variant (Date)。计算中要用到的两个日期。





Firstdayofweek


可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。





firstweekofyear


可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。






设置


interval 参数的设定值如下：











设置


描述





yyyy


年





q


季





m


月





y


一年的日数





d


日





w


一周的日数





ww


周





h


时





n


分钟





s


秒






firstdayofweek 参数的设定值如下：











常数


值


描述





vbUseSystem


0


使用 NLS API 设置。





vbSunday


1


星期日（缺省值）





vbMonday


2


星期一





vbTuesday


3


星期二





vbWednesday


4


星期三





vbThursday


5


星期四





vbFriday


6


星期五





vbSaturday


7


星期六


















常数


值


描述





vbUseSystem


0


<TD class=T width="62%

liyi8977

我在VBA下编程，用下面的代码，系统错误，提示：编译错误：子过程或函数未定义。错误停留在today（）上

看来是excel函数不能在VBA下使用


Private Sub Workbook_Open()
If today() - Sheets("出口核销退税 作业流程图").Range("H10").Value < 30 Then
    MsgBox ("注意时间")
End If
End Sub


那用上面的函数该怎样写？

liyi8977

If DateDiff("d", Now, Sheets("出口核销退税 作业流程图").Range("H10").Value) < 30 Then
    MsgBox ("注意时间")
End If

知道了，太感谢了

cola

Private Sub Workbook_Open()
If date - Sheets("出口核销退税 作业流程图").Range("H10").Value < 30 Then  MsgBox ("注意时间")
End Sub