fix: 检测愚人节版本所用时区不正确

This commit is contained in:
tangge233
2024-08-09 14:05:29 +08:00
parent 8f49799c6d
commit e5a0eddcea
2 changed files with 4 additions and 2 deletions
@@ -45,7 +45,8 @@
Version.Add("lore", GetMcFoolName(Version("id")))
End Select
'所有4月1日发布的版本可视为愚人节版,但不改动版本描述
Select Case Version("releaseTime").Value(Of Date).ToString("MM'/'dd")
Dim swedenTime As Date = Version("releaseTime").Value(Of Date).ToUniversalTime().AddHours(2)
Select Case swedenTime.ToString("MM'/'dd")
Case "04/01"
If Not Version("type") = "special" Then
Type = "愚人节版"
@@ -620,7 +620,8 @@
Version.Add("lore", GetMcFoolName(Version("id")))
End Select
'所有4月1日发布的版本视为愚人节版,但不改动版本描述
Select Case Version("releaseTime").Value(Of Date).ToString("MM'/'dd")
Dim swedenTime As Date = Version("releaseTime").Value(Of Date).ToUniversalTime().AddHours(2)
Select Case swedenTime.ToString("MM'/'dd")
Case "04/01"
If Not Version("type") = "special" Then
Type = "愚人节版"