查找当前时区并根据当地时间将其转换为缩写

Find current time zone and convert it to it's abbreviation based on the local time

我正在尝试为具有当前时区的程序制作自定义时间戳。我真的不知道如何得到它。我只知道它以 TimeZoneInfo 开头。 任何帮助,将不胜感激。这是我到目前为止得到的:

Dim d1 As Date = Now
Label1.Text = ("#" + d1.ToString("ddd" & " " & "MMM" & " " & "dd" & "IN HERE GOES TIMEZONE" & "hh:mm:ss" & " " &  & DateTime.Now.Year))

希望能利用本地电脑的时间来转换

尝试

Dim d1 As Date = Now
Label1.Text = ("#" + d1.ToString("ddd MMM dd hh:mm:ss yyyy")