Così:
Public Class Form1
Dim data As New DateTime(2008, 3, 20, 10, 20, 5)
Dim data2 As New DateTime(2008, 5, 20, 11, 21, 7)
'ottengo la differenza tra due date
Dim diff As TimeSpan = data2.Subtract(Data)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Giorni: " & diff.Days)
MessageBox.Show("Ore: " & diff.Hours)
MessageBox.Show("Minuti: " & diff.Minutes)
MessageBox.Show("Secondi: " & diff.Seconds)
'differenza in un unico passaggio
MessageBox.Show(diff.ToString())
End Sub
End Class
Ma così mi da il risultato sempre lo stesso...
|