锐客网

  1. 首页 > 睿知 > it技术 > >

关于VB.net24节气的信息( 六 )

IT技术太阳


S_Term(15) = "立秋"
S_Term(16) = "处暑"
S_Term(17) = "白露"
S_Term(18) = "秋分"
S_Term(19) = "寒露"
S_Term(20) = "霜降"
S_Term(21) = "立冬"
S_Term(22) = "小雪"
S_Term(23) = "大雪"
S_Term(24) = "冬至"
'节气信息
StInfo(1) = 0
StInfo(2) = 21208
StInfo(3) = 42467
StInfo(4) = 63836
StInfo(5) = 85337
StInfo(6) = 107014
StInfo(7) = 128867
StInfo(8) = 150921
StInfo(9) = 173149
StInfo(10) = 195551
StInfo(11) = 218072
StInfo(12) = 240693
StInfo(13) = 263343
StInfo(14) = 285989
StInfo(15) = 308563
StInfo(16) = 331033
StInfo(17) = 353350
StInfo(18) = 375494
StInfo(19) = 397447
StInfo(20) = 419210
StInfo(21) = 440795
StInfo(22) = 462224
StInfo(23) = 483532
StInfo(24) = 504758
y = Val(Left(TempDate, 4)): j = Val(Mid(TempDate, 6, 2)): k = Val(Right(TempDate, 2))
If k = 15 Then
j = j * 2 - 1
Else
j = j * 2
End If
E(0) = (31556925.9747 * (y - 1900) + StInfo(j) * 60#)
E(1) = DateDiff("s", "1970-1-10:0", "1900-1-62:5") + E(0)
E(0) = E(1) / 2
dtJ = DateAdd("s", E(1) - E(0), DateAdd("s", E(0), "1970-1-11:18"))
dtJ = Year(dtJ)"-"Month(dtJ)"-"Day(dtJ)
If (Month(dtJ)10) Then
strJm = "0"Month(dtJ)
Else
strJm = Month(dtJ)
End If
If (Day(dtJ)10) Then
strJd = "0"Day(dtJ)
Else
strJd = Day(dtJ)
End If
Strj = Format(Year(dtJ)"-"strJm"-"strJd, "yyyy-mm-dd")
JieQi = ""
If DateDiff("d", Strj, TempDate) = -2 Then JieQi = "后天为" + S_Term(j) + "节气"
If DateDiff("d", Strj, TempDate) = -1 Then JieQi = "明天为" + S_Term(j) + "节气"
If Strj = TempDate Then JieQi = "今天是" + S_Term(j) + "节气"
End Function
【关于VB.net24节气的信息】VB.net24节气的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于、VB.net24节气的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：创见340固态硬盘怎么样，创见340 370区别

下一篇：美的直播间录屏怎么录屏，直播录屏怎么打开