Office中国论坛/Access中国论坛

标题: date（）函数的用法？ [打印本页]

作者: liyi8977 时间: 2007-1-10 08:05
标题: date（）函数的用法？
我想将某一工作表中某一单元格的日期和today（）相减，看是否差一个月？不知可行否，应如何写代码。特别是不知道在date函数中工作表名应如何表达？各位帮忙啊

作者: cola 时间: 2007-1-10 16:39
datedif()+date

作者: liyi8977 时间: 2007-1-10 18:15
什么意思啊，看不懂，帮助里也没有

作者: cola 时间: 2007-1-10 18:19
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 时间: 2007-1-10 19:03
我在VBA下编程，用下面的代码，系统错误，提示：编译错误：子过程或函数未定义。错误停留在today（）上

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

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

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

作者: liyi8977 时间: 2007-1-10 19:08
If DateDiff("d", Now, Sheets("出口核销退税作业流程图").Range("H10").Value) < 30 Then
MsgBox ("注意时间")
End If

知道了，太感谢了

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)