求计算24节气的VB代码

暗淡？S_Term(1？去哪？24)?作为？线

暗淡？StInfo(1？去哪？24)?作为？长的

暗淡？y？作为？整数，？j？作为？整数，？k？作为？整数

暗淡？E(1)？作为？两倍

暗淡？dtJ？作为？日期

暗淡？strJm？作为？字符串，？strJdAs？线

暗淡？Strj？作为？字符串？节气日期

节气名称

S_Term(1)？=?“小寒”

S_Term(2)？=?“大寒”

S_Term(3)？=?“立春”

S_Term(4)？=?“雨”

S_Term(5)？=?“刺”

S_Term(6)？=?“春分”

S_Term(7)？=?《清明》

S_Term(8)？=?“谷雨”

S_Term(9)？=?《漫长的夏天》

S_Term(10)？=?“小满”

S_Term(11)？=?“芒籽”

S_Term(12)？=?《夏日至日》

S_Term(13)？=?“微暑”

S_Term(14)？=?“大机构”

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))

如果？k？& lt=?15?然后

j？=?j？*?2?-?1

其他

j？=?j？*?2

结束？如果

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？=?年份(dtJ)？& amp？"-"?& amp？月(dtJ)？& amp？"-"?& amp？日(dtJ)

如果？(月(dtJ)？& lt？10)?然后

strJm？=?"0"?& amp？月(dtJ)

其他

strJm？=?月(dtJ)

结束？如果

如果？(日(dtJ)？& lt？10)?然后

strJd？=?"0"?& amp？日(dtJ)

其他

strJd？=?日(dtJ)

结束？如果

Strj？=?格式(年份(dtJ)？& amp？"-"?& amp？strJm？& amp？"-"?& amp？strJd，？" yyyy-mm-dd ")

齐杰？=?""

如果？DateDiff("d "，Strj，？TempDate)？=?-2?然后呢？齐杰？=?《后天》？+?S_Term(j)？+?“节气”

如果？DateDiff("d "，Strj，？TempDate)？=?-1?然后呢？齐杰？=?“明天”？+?S_Term(j)？+?“节气”

如果？Strj？=?临时约会？然后呢？齐杰？=?“今天是”？+?S_Term(j)？+?“节气”

结束？功能