如何在Visual Basic中设置日期格式？

Imports System

Module Module1
    Sub Main()
        ' 获取当前日期和时间
        Dim currentDate As DateTime = DateTime.Now
        
        ' 格式化日期和时间
        Dim shortDateFormat As String = "MM/dd/yyyy"
        Dim longDateFormat As String = "dddd, MMMM dd, yyyy"
        Dim shortTimeFormat As String = "HH:mm"
        Dim longTimeFormat As String = "HH:mm:ss"
        
        ' 输出格式化后的日期和时间
        Console.WriteLine("Short Date Format: " & currentDate.ToString(shortDateFormat))
        Console.WriteLine("Long Date Format: " & currentDate.ToString(longDateFormat))
        Console.WriteLine("Short Time Format: " & currentDate.ToString(shortTimeFormat))
        Console.WriteLine("Long Time Format: " & currentDate.ToString(longTimeFormat))
        
        ' 等待用户输入
        Console.ReadLine()
    End Sub
End Module

Dim utcDate As DateTime = DateTime.UtcNow
Dim localDate As DateTime = utcDate.ToLocalTime()