恋爱的句子唯美短语-专业模特培训
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)
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 Then
If 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 Then
If 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) < 2 Then
shi1 =
End If
If Len(fen1) < 2 Then
fen1 =
End If
If Len(miao3) < 2 Then
miao3 =
End If
If shi = 24 And shi1 <= 23 Then
d = d - 1
If d <= 0 Then
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 Then
d = 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 <= 0 Then
m = 12
y = y - 1
End If
End If
If m < 10 Then
m =
End If
If d < 10 Then
d =
End If
t2 = y &
t3 = shi1 &
t4 = t2 & t3
TMC = t4
End Function
七律《长征》-安徽机电职业技术学院校园网
直言不讳什么意思-民航招聘
俄罗斯美术学院-早安情话最暖心短句
职业有哪些-x界
二次函数图像-一句情感小短句
英语vi和vt的区别-古典乐器有哪些
当空姐要具备什么条件-酒诗句大全
中国高铁乘务员招聘网-胰高血糖素的作用
本文更新与2020-11-21 20:49,由作者提供,不代表本网站立场,转载请注明出处:https://www.bjmy2z.cn/gaokao/453693.html
-
上一篇:复数的基本概念与基本运算
下一篇:数学几何中内切圆半径很难求