日期時間差範例

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bft As Date = TextBox1.Text
        Dim att As Date = TextBox2.Text
        Dim min As TimeSpan = att.Subtract(bft)
        Dim my_min As Integer = min.TotalMinutes
        Response.Write("時間差(分):" & my_min)
    End Sub