怎么用DateDiff 函数?请举个例子

蓝天8390

DateDiff 函数

hi-wzj

DateDiff 函数示例

本示例使用 DateDiff 函数来显示某个日期与今日相差几天。

1. Dim TheDate As Date    '

复制代码

声明变量。

1. Dim Msg

复制代码

1. TheDate = InputBox("Enter a date")

复制代码

1. Msg = "Days from today: " & DateDiff("d", Now, TheDate)

复制代码

1. MsgBox Msg

复制代码

hi-wzj

在代码设计视图中，点开帮助，输入相应的关键字，然后点搜索即可。

蓝天8390

谢谢版主