日期格式轉換

Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Now_time As String = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") 
　　　　'宣告日期變數，設定日期格式
        Dim d1 As Date = DateTime.Today
　　　　 '宣告日期變數
        Dim d2 As Date
        Label1.Text = d1.ToString("yyyy/MM/dd")
　　　　 '顯示(現在日期),DateTime.Now
        Label2.Text = d1.Now
　　　　 '顯示(現在日期、時間),DateTime.Now
        Label3.Text = d1.Now.AddDays(6)
　　　　 '顯示(現在日期+6天、時間),DateTime.Now.AddDays(6)
        d2 = "#" & TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text & "#"
　　　　 '字串轉換成日期格式
        Label4.Text = d2
　　　　 '顯示d2的日期，#2019/06/10#
    End Sub
End Class