Excel2019日期函数的加减怎么做
天津5-采取措施
Excel2019日期函数的加减怎么做
篇一：Excel时间加减函数TMC
Function TMC(time_text,
minu)
'时间格式：2019-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
页 第
1
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)
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
页 第 2