Excel2010日期函数的加减怎么做
中药制药技术-超级女声主题曲
Excel2010日期函数的加减怎么做
篇一：Excel时间加减函数TMC
Function TMC(time_text,
minu)
'时间格式：2012-1-11 16:28:14
Dim t2, t3, t4,
y, m, d, zong_miao, miao1, miao2, shi, fen, miao,
shi1, fen1, miao3 Dim t1, m1
Dim flag1 As
Boolean
Dim flag2 As Boolean
t1 =
time_text
m1 = -minu
flag1 = False
flag2 = False
If IsNumeric(m1) Then
flag2 = True
End If
If
IsDate(t1) Then
flag1 = True
End If
If t1 =
TMC =
Exit Function
End If
y = Year(t1)
m =
Month(t1)
d = Day(t1)
shi =
Hour(t1)
fen = Minute(t1)
miao =
Second(t1)
If shi = 0 Then
shi =
24
End If
zong_miao = shi * 3600 +
fen * 60 + miao
miao1 = m1 * 60
miao2 = zong_miao - miao1
shi1 = Int(miao2
3600)
1 8
fen1 = Int((miao2 -
shi1 * 3600) 60)
miao3 = miao2 - shi1 *
3600 - fen1 * 60
If shi1 >= 24 Then
n
= Int(shi1 24)
shi1 = shi1 - n * 24
d = d + n
End If
If m = 1 Or m = 3
Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12
ThenIf d > 31 Then
m = m + Int(d 31)
d = d Mod 31
End If
ElseIf m = 1
Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m
= 12 ThenIf d > 30 Then
m = m + Int(d 31)
d = d Mod 30
End If
ElseIf
m = 2 Then
If y Mod 4 = 0 And y Mod 100 =
0 And y Mod 400 = 0 Then
If d > 29 Then
m = m + Int(d 31)
d = d Mod 29
End If
Else
If d > 28 Then
m = m + Int(d 31)
d = d Mod 28
End If
End If
End If
If m > 12 Then
y = y + Int(m 12)
m
= m Mod 12
End If
If Len(shi1)
shi1 =
End If
If Len(fen1) fen1 =
End If
If Len(miao3) miao3 =
End If
2 8
If shi = 24 And shi1
d = d - 1
If d If m = 5 Or m = 7 Or m = 8
Or m = 10 Or m = 12 Then
d = 30
m
= m - 1
ElseIf m = 4 Or m = 2 Or m = 6 Or
m = 8 Or m = 9 Or m = 11 Or m = 1 Thend = 31
m = m - 1
ElseIf m = 3 Then
If y
Mod 4 = 0 And y Mod 100 = 0 And y Mod 400 = 0 Then
d = 29
m = m - 1
Else
d = 28
m = m - 1
End If
End If
End If
If m m = 12
y = y - 1
End If
End If
If m
m =
End If
If d d =
End
If
t2 = y &
t3 = shi1 &
t4
= t2 & t3
TMC = t4
End Function
篇二：Excel 日期常用函数
VBA日期的加减函数：DateAdd 函数
返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。 语法
DateAdd(interval, number, date)DateAdd
函数语法中有下列命名参数： 部分
描述
interval
必要。字符串表达式，是所要加上去的时间间隔。 number date设置
必要。数值
表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），
也可以为负数（得到过去
的日期）。 必要。Variant (Date) 或表示日期的文字，这一日期还加
上了时间间隔。
3 8
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 参数的格式决定。
DateAdd
函数示例
本示例先取得一个日期，再用 DateAdd
函数显示未来数月后的日期。Dim FirstDate As
Date ' 声明变量。 Dim
IntervalType As String Dim Number As Integer Dim
Msg
IntervalType = 指定以“月份”作为间隔。 FirstDate
= InputBox(
Number = InputBox(
Msg =
DATEDIF
计算两个日期之间的天数、月数或年数。提供此函数是为了与
Lotus 1-2-3 兼容。
语法
DATEDIF(start_date,end_date,unit)
Start_date
为一个日期，它代表时间段内的第一个日期或起始日期。日期有多种输入方法：
带引号的文本串（例如
）、系列数（例如，如果使用 1900 日期系统则 36921 代
表 2001 年 1 月
30
日）或其他公式或函数的结果（例如，DATEVALUE(）。有
关日期系列数的详细信息，请参阅
NOW。
End_date 为一个日期，它代表时间段内的最后一个日期或结束日期。
Unit 为所需信息的返回类型。
Unit 返回
时间段中的整年数。 时间段中的整月数。 时间段中的天数。
与 end_date
日期中天数的差。忽略日期中的月和年。
与 end_date
日期中月数的差。忽略日期中的日和年。 与 end_date 日期中天
数的差。忽略日期中的年。
4 8
说明
Microsoft Excel
按顺序的系列数保存日期，这样就可以对其进行计算。如果工作簿使用
1900 日期系统，则
Excel 会将 1900 年 1 月 1 日保存为系列数 1。而如果工作簿使用 1904
日期系统，则 Excel 会将 1904 年 1 月 1 日保存为系列数 0，（而将
1904 年 1 月 2 日
保存为系列数 1）。例如，在 1900 日期系统中 Excel
将 1998 年 1 月 1 日保存为系列数
35796，因为该日期距离 1900 年 1
月 1 日为 35795
天。请查阅 Microsoft Excel
如何存储日期和时间。
Excel for Windows 和 Excel for
Macintosh 使用不同的默认日期系统。有关详细信息，请
参阅 NOW。
示例
DATEDIF(等于 2，即时间段中有两个整年。
DATEDIF(等于 440，即在 2001 年 6 月 1
日和 2002 年 8 月
15 日之间
有 440 天。
DATEDIF(等于 75，即在 6 月
1 日与 8 月 15 日之间有
75 天，忽略日
期中的年。
DATEDIF(等于 14，即开始日期 1 和结束日期 15 之间的
差，忽略日期中
的年和月。
纵观Excel日期函数对日期的运算规则得出以下理解（比如Edate、Da
tedif等都是遵循这
个规则的）：先理解“月末”——指某月的最后一天再理解“整月”即不是按3
0天也不是
按29天等来算，这个是一个变动的概念。
——由m月d日至
m+1月d日，若m+1月没有d日，则取m+1月的“月末”算一个“整月”。
反之，倒推
回来，由m月d日至m-1月d日，若m-1月没有d日，则取m-1月的月末算一个“整月”
例子：2006-1-28~31日，往后推1个月得到的都是2-28，其中2006-1-2
8遵循了m+1=2
月d=28日的规则，而2006-1-29~31则遵循了“取月末”的规则，即
因为2006年的m+1=2月没
有29、30、31日，则取其月末。用=Edate(star_d
ate,1)验证上述规则；用
Datedif(star_date,同样能验证这个规则。即从20
06-1-28~31日至2006-2-28的
Datedif(??,——都算1个“整月”。
Private Function getFirstDayOfMonth(ByVal D As
Date) As
DategetFirstDayOfMonth =
CDate(Year(D) &
'获取给定日期的当月最后一天
Private Function getLastDayOfMonth(ByVal D As
Date) As DateDim dteFirstDayOfNextMonth
As
Date
dteFirstDayOfNextMonth = DateAdd(1,
getFirstDayOfMonth(D))getLastDayOfMonth =
DateAdd(
'获取给定日期的当年第一天
5 8
Private Function
getFirstDayOfYear(ByVal D As Date) As
DategetFirstDayOfYear = CDate(Year(D)
&
'获取给定日期的当年最后一天
Private Function
getLastDayOfYear(ByVal D As Date) As
DategetLastDayOfYear =
CDate(Year(D) &
本月第一天星期几
[A22].Value = Weekday([A21])b =
[A22].ValueSelect Case b
Case vbSunday
[A23] = Year([B19]) & 年月1日是星期日
[A23] =
Year([B19]) & 年月1日是星期一
[A23] = Year([B19]) &
年月1日是星期二
[A23] = Year([B19]) & 年月1日是星期三
[A23] = Year([B19]) & 年月1日是星期四
[A23] =
Year([B19]) & 年月1日是星期五
[A23] = Year([B19]) &
年月1日是星期六
'得到本月第一周周一的日期
Select Case b Case
vbSunday [B21].Value = DateAdd(
[B21].Value
= DateAdd(9 - b, [A21]) 使用 DatePart(Date()) 来返回周
DatePart
函数
返回一个包含已知日期的指定时间部分的 Variant
(Integer)。 语法
DatePart(interval,
date[,firstdayofweek[, firstweekofyear]]) DatePart
函数语法中有下列命
名参数：
篇三：各种日期格式的转换公式
excel常用函数公式大全：各种日期格式的转换公式 (2012-11-15 11:18:01)
转载▼
6 8
7 8
8 8