Tid til en bedstemt dato

VB.NET:

        Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
            Dim ts As TimeSpan = DateTime.Parse("8/10/2006 6:00").Subtract(DateTime.Now)
            label1.Text = ts.Days & " dage " & ts.Hours & " timer " & ts.Minutes & " minutter"
        End Sub

giv mig lige 10 minutter til en VB6 version

VB6:

Private Sub Command1_Click()
    Dim d2, d1 As Date
    Dim t As Long
    Dim d, h, m As Integer
    d1 = Now()
    d2 = CDate("8/10/2006 6:00")
    t = DateDiff("n", d1, d2)
    d = t \ (24 * 60)
    h = (t \ 60) Mod 24
    m = t Mod 60
    Text1.Text = d & " dage " & h & " timer " & m & " minutter"
End Sub

jeg er ikke sikker på at den VB6 kode er optimal, men det var lige hvad jeg kunne
komme på

mange tak for svaret, lige en sidste ting, i vb6 koden - kan du forklare hvad de forskellige ting har af functioner vil nemlig godt lige have 100% styr på det så jeg er fri for at sprøge en anden gang ;)

Private Sub Command1_Click()
    Dim d2, d1 As Date
    Dim t As Long
    Dim d, h, m As Integer
    d1 = Now() ' henter tiden nu
    d2 = CDate("8/10/2006 6:00") ' henter den tid vi skal finde afstand til
    t = DateDiff("n", d1, d2) ' beregner forskellen i total minutter (stort tal)
    d = t \ (24 * 60) ' heltals division med 24*60 giver dage
    h = (t \ 60) Mod 24 ' heltals division med 60 skipper minutter og modules 24 skipper dage så vi får timer
    m = t Mod 60 ' modulus 60 giver os de rigtige minutter
    Text1.Text = d & " dage " & h & " timer " & m & " minutter"
End Sub

og et svar

tal

*tak for svaret