土地成本计算公式Excel2019日期函数的加减怎么做

2020年10月6日发(作者：荣柱)
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