From e5a0eddceaf9975997041965351e83f4148018a1 Mon Sep 17 00:00:00 2001
From: tangge233 <2697992791@qq.com>
Date: Fri, 9 Aug 2024 14:05:29 +0800
Subject: [PATCH] =?UTF-8?q?fix:=20=E6=A3=80=E6=B5=8B=E6=84=9A=E4=BA=BA?=
 =?UTF-8?q?=E8=8A=82=E7=89=88=E6=9C=AC=E6=89=80=E7=94=A8=E6=97=B6=E5=8C=BA?=
 =?UTF-8?q?=E4=B8=8D=E6=AD=A3=E7=A1=AE?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../Pages/PageDownload/PageDownloadClient.xaml.vb              | 3 ++-
 .../Pages/PageDownload/PageDownloadInstall.xaml.vb             | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Plain Craft Launcher 2/Pages/PageDownload/PageDownloadClient.xaml.vb b/Plain Craft Launcher 2/Pages/PageDownload/PageDownloadClient.xaml.vb
index c99964d..fbc9d8b 100644
--- a/Plain Craft Launcher 2/Pages/PageDownload/PageDownloadClient.xaml.vb	
+++ b/Plain Craft Launcher 2/Pages/PageDownload/PageDownloadClient.xaml.vb	
@@ -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 = "愚人节版"
diff --git a/Plain Craft Launcher 2/Pages/PageDownload/PageDownloadInstall.xaml.vb b/Plain Craft Launcher 2/Pages/PageDownload/PageDownloadInstall.xaml.vb
index c0b9dd6..e869a41 100644
--- a/Plain Craft Launcher 2/Pages/PageDownload/PageDownloadInstall.xaml.vb	
+++ b/Plain Craft Launcher 2/Pages/PageDownload/PageDownloadInstall.xaml.vb	
@@ -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 = "愚人节版"