关于vb 中的日期时间函数
发布网友
发布时间：2022-04-12 21:11
共6个回答
热心网友
时间：2022-04-12 22:40
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 用 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 刚好是星期日，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将它算进去。
如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。
firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。
如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。
在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已。
DateAdd(interval, number, date)
DateAdd 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。
设置
interval 参数具有以下设定值：
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
说明
可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。
为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。
DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月：
DateAdd(m, 1, 31-Jan-95)
上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。
如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。
如果 number 不是一个 Long 值，则在计算时取最接近的整数值来计算。
注意 DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。
热心网友
时间：2022-04-12 23:58
http://flydoos.blog.163.com/blog/static/119756040201011515321670/edit/
贴太多的话不好~~~~
VB 日期时间函数
1. Year(X)，Month(X)，Day(X)：取出年，月，日
[格式]：
P=Year(X) 取出X"年"部分的数值
P=Month(X) 取出X"月"部分的数值
P=Day(X) 取出X"日"部分的数值
[说明]：Year返回的是公元年，若X里只有时间，没有日期，则日期视为#1899/12/30#
2. Hour，Minute，Second函数：取出时，分，或秒
[格式]：
P=Hour(X) 取出X"时"部分的数值
P=Minute(X) 取出X"分"部分的数值
P=Second(X) 取出X"秒"部分的数值
[说明]：Hour的返回值是0---23之间
[范例]：
X=10:34:23
P=Hour(X)
Q=Minute(X)
R=Second(X)
则输出结果：P=10，Q=34，R=23
3. DateSerial函数：合并年，月，日成为日期
[格式]：DateSerial(Y,M,D) 其中Y是年份，M为月份，D为日期
[说明]：
（1） M值若大于12，则月份从12月起向后推算M-12个月；若小于1，则月份从1月起向后推算1-M个月。
（2） 若日期D大于当月的日数，则日期从当月的日数起，向后推算D-当月日数；若小于1，则日期从1日起向前推算1-D日。
[范例]：
P=DateSerial(2000,02,02)
则结果为P=2000/02/02
4．TimeSerial函数：合并时，分，秒成为时间
[格式]：P=TimeSerial(H,M,S) 其中H为小时数，M为分钟数，S为秒数
[说明]：推算原理同上面的DateSerial
[范例]：
P=TimeSerial(6,32,45) 结果为：P=6:32:45
5．Date,Time,Now函数：读取系统的日期时间
[格式]：
P=Date()
P=Time()
P=Now()
[说明]：这三个函数都无参数
[范例]：若当前时间为2003年8月29日晚上19点26分45秒，则
P=Now() 结果为：P=2003-08-29 19:26:45
6.VB日期加减函数DateAdd
语法
DateAdd(interval, number, date)
返回包含一个日期类型的数据
interval参数具有以下设定值:
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。
为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。
DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月
DateAdd(m, 1, 31-Jan-95)
用法
DateAdd("d", 7, Now) 现在日期加7天
PS:
说明
可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。
DateAdd 函数不会返回无效日期。如下示例将 95 年 1 月 31 日加上一个月：
NewDate = DateAdd("m", 1, "31-Jan-95")
在这个示例中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。
如果计算的日期是在公元 100 年之前，则会产生错误。
如果 number 不是 Long 型值，则在计算前四舍五入为最接近的整数。
参考资料：http://flydoos.blog.163.com/blog/static/119756040201011514049513/edit/
热心网友
时间：2022-04-13 01:33
在Visual
FoxPro（VFP）中，日期时间函数是处理日期型或日期时间型数据的函数。其自变量为日期型表达式dExp或日期时间型表达式tExp。
类型：
1．系统日期函数DATE(
)
【格式】DATE()
【功能】返回当前系统日期，此日期由Windows系统设置。函数值为D型。
2．系统时间函数TIME(
)
【格式】TIME([<nExp>])
【功能】返回当前系统时间，时间显示格式为hh:mm:ss。若选择了nExp
，则不管为何值，返回的系统时间还包括秒的小数部分，精确至小数点后两位。函数值为C型。
3．日期函数DAY(
)
【格式】DAY(<dExp>)
【功能】返回dExp式中的天数。函数值为N型
4．星期函数DOW(
)、CDOW(
)
【格式】DOW(<dExp>)
CDOW(<dExp>)
【功能】DOW(
)函数返回dExp式中星期的数值，用1~7表示星期日～星期六。函数值为N型。CDOW(
)函数返回dExp式中星期的英文名称。函数值为C型。
5．月份函数MONTH(
)、CMONTH(
)
【格式】MONTH(<dExp>)
CMONTH(<dExp>)
【功能】MONTH(
)函数返回dExp式中月份数。函数值为N型。CMONTH(
)函数则返回月份的英文名。函数值为C型。
6．年份函数YEAR(
)
【格式】YEAR(<dExp>)
【功能】函数返回dExp式中年份值。函数值为N型。
热心网友
时间：2022-04-13 03:24
一个简单的方法···直接把日期用date格式表示后就可以直接加减的，比如说
Private Sub Command1_Click()
a = #4/1/2010# - #9/15/2009#
Print a
End Sub
你要加减固定时间间隔的也可以的，比如说：
Private Sub Command1_Click()
a = #4/1/2010# + 4
Print a
End Sub
我试验过无误了··呵呵··
热心网友
时间：2022-04-13 05:32
热心网友
时间：2022-04-13 07:57
