Beregn tidsforskel i Visual Basic .NET

Du kan trække dem direkte fra hinanden:

Dim a As Date, b As Date, c As Date

a = "2003-11-02 10.44.02"
b = "2003-11-03 00.44.02"

c = b - a

-Dette virker i hvert fald i VB 6: Giver c = "14:00:00"

/tjacob

Korrektion:

  Det virker IKKE hvis der er mere end 1 dag, prøver lige
  at finde en anden løsning.............

/tjacob

Det her virker:

Imports System

Module Main
    Sub Main()
        Dim t1 As DateTime = DateTime.Parse("02-11-2003 10:44:02")
        Dim t2 As DateTime = DateTime.Parse("04-11-2003 00:49:02")
        Console.WriteLine(System.DateTime.op_Subtraction(t2,t1))
    End Sub
End Module

http://www.eksperten.dk/kat/354

arne v -> hvordan får jeg smidt resultatet over i en string?

Imports System

Module Main
    Sub Main()
        Dim t1 As DateTime = DateTime.Parse("02-11-2003 10:44:02")
        Dim t2 As DateTime = DateTime.Parse("04-11-2003 00:49:02")
        Dim s As String = System.DateTime.op_Subtraction(t2,t1).ToString()
        Console.WriteLine(s)
    End Sub
End Module

martin>

Det har du helt ret i !

:-)

Hvorfor ikke bare

strTidsforskel = Cstr(Datediff ("h","02-11-2003 10:44:02","04-11-2003 00:49:02"))

Med:
  Imports Microsoft.VisualBasic
kan man også det !

Eksempel:

Imports System
Imports Microsoft.VisualBasic

Module Main
    Sub Main()
        Dim t1 As DateTime = DateTime.Parse("02-11-2003 10:44:02")
        Dim t2 As DateTime = DateTime.Parse("04-11-2003 00:49:02")
        Dim s As String = System.DateTime.op_Subtraction(t2,t1).ToString()
        Console.WriteLine(s)
        Dim s2 As String = Cstr(Datediff ("h","02-11-2003 10:44:02","04-11-2003 00:49:02"))
        Console.WriteLine(s2)
        Dim s3 As String = System.DateTime.op_Subtraction(t2,t1).TotalHours.ToString()
        Console.WriteLine(s3)
    End Sub
End Module