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

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 = "愚人节版"