按键精灵9 利用data（）来进行日期计算

这问题都没有问句。！！！卜伍！

DateDiff 函数

描述

返回两个日期之间的时间间隔。

语法

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

DateDiff 函数的语法有以下参数：参数 描述

interval 必选。String expression 表示用于计算 date1 和 date2 之间的时间间隔。有关数值，“设置”部分。

date1, date2 必选。日期表达式。用于计算的两个日期。

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 星期六

firstweekofyear 参数可以有以下值：常数 值 描述

vbUseSystem 0 使用区域语言支持 (NLS) API 设置。

vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。

vbFirstFourDays 2 由在新年中至少有四天的第一周开始。

vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。

说明

DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。

要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。如果 date1 晚于 date2，则 DateDiff 函数返回负数。firstdayofweek 参数会对使用“w”和“ww”间隔符拍明号的计算产生影响。如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相袭弊告差一个年份。下面例子利用 DateDiff 函数显示给定日期和当天日期之间的天数: Function DiffADate(theDate)

DiffADate = "从当天开始的天数:" &DateDiff("d", Now, theDate)

End Function

Event Form1.Button1.Click

Form1.InputBox3.Text = ""

Form1.InputBox3.Text = ccur(Form1.InputBox1.Text) + ccur(Form1.InputBox2.Text)

If Form1.InputBox3.Text="" Then

Form1.InputBox2.Text = ""

Form1.InputBox1.Text = ""

Form1.InputBox3.Text = ""

MessageBox "对不起，不能接受非数字"

End If

End Event

其实挺简单的，不过主要是文本型的数据要转换成数字才可以进行计算。要做一个判定，如果不是数字就清空输入框。

---