Merge pull request #4449 from tangge233/VersionSortFix

fix: 检测愚人节版本所用时区不正确
This commit is contained in:
龙腾猫跃
2024-08-12 03:07:56 +08:00
committed by GitHub
2 changed files with 4 additions and 2 deletions
@@ -45,7 +45,8 @@
Version.Add("lore", GetMcFoolName(Version("id"))) Version.Add("lore", GetMcFoolName(Version("id")))
End Select End Select
'所有4月1日发布的版本可视为愚人节版,但不改动版本描述 '所有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" Case "04/01"
If Not Version("type") = "special" Then If Not Version("type") = "special" Then
Type = "愚人节版" Type = "愚人节版"
@@ -620,7 +620,8 @@
Version.Add("lore", GetMcFoolName(Version("id"))) Version.Add("lore", GetMcFoolName(Version("id")))
End Select End Select
'所有4月1日发布的版本视为愚人节版,但不改动版本描述 '所有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" Case "04/01"
If Not Version("type") = "special" Then If Not Version("type") = "special" Then
Type = "愚人节版" Type = "愚人节版"