在VBA中日期的一部分加减可以使用dateadd函数.比如dateadd(＂yyyy＂,1,now()),在今天的日期上加上一年.比如dateadd(＂yyyy＂,-1,now()),在今天的日期上减去一年.比如dateadd(＂d＂,1,now()),在今天的日期上加上一天.比如dateadd(＂d＂,-1,now()),在今天的日期上减去一天.比如dateadd(＂m＂,1,now()),在今天的日期上加上一月.比如dateadd(＂d＂,-1,now()),在今天的日期上减去一月.

DateAdd(dateinterval, number, datetime) 对日期或时间作加减. DateDiff(dateinterval, date1, date2) 计算两个日期或时间间的差值. DatePart (dateinterval, date) 依接收的日期或时间参数传回年、月、日或时间. DateSerial(year, month, day) 将接收的参数合并为一个只有日期的Date 型态的数据. DateValue(datetime) 取得符合国别设定样式的日期值,并包含时间. Day(datetime)依接收的日期参数传回日.

Dim d As Dated = #8/8/2008 8:16:08 AM# - #8/8/2008#MsgBox Hour(d)MsgBox Minute(d)MsgBox Second(d)

如:B1中的时间-A1中的时间=[B1]-[A1]

Sub 日期转换() mydate = ＂26 十一月 2013＂ arr = [{＂一月＂,＂Jan＂;＂二月＂,＂Feb＂;＂三月＂,＂Mar＂;＂四月＂,＂Apr＂;＂五月＂,＂May＂;＂六.

日期运算符与日期表达式 日期表达式是用日期运算符“+”或“-”用算数表达式、日期型常量、日期型变量、日期函数等连接起来的式子.有一下三种运算方式:①两个日期型数据相减,其结果是一个数值型数据(相差的天数) ②日期型数据加上天数,其结果为一个日期型数据 ③日期型数据减去天数,其结果为一个日期型数据

s = Format([a1], ＂0000-00-00＂) v = Format([a2], ＂0000-00-00＂) [b1] = DateDiff(＂d＂, s, v) 这样B1中就会得到A1和A2之间的天数了

按照你的意思,你返回的值应该是一个String型,而不是日期型,把类型修改后可以运行,另外我觉的你的算法有些不太安全,最好使用日期函数进行运算.Function date1.

Private Function 减去整月(基准时间 As Date, 月数 As Integer) As Date y = Year(基准时间) m = Month(基准时间) d = Day(基准时间) m = m - 月数 Do While m .

你这个不是标准的时间格式 要提取相关的数据会比较麻烦复杂 但是还是可以搞定的 x年x月x日的公式 “=LEFT(A1,FIND(＂年＂,A1)-1)-LEFT(B1,FIND(＂年＂,B1)-1&＂.