|
A nešlo by využít jednoduše Date? Můžete to krmit z DateTimePicker, než řešit správnost zápisu. Používám to docela hojně. Nevím, jestli je to úplně košer, ale funguje to.
Dim Cas1 As Date = "29.3.2013 10:45:48"
Dim Cas2 As Date = Now
MsgBox(Date.FromOADate(Cas2.ToOADate - Cas1.ToOADate))
Ono to samozřejmě bude fungovat v rámci jednoho dne. Převod na dny by bylo potřeba dořešit.
Dim Cas1 As Date = "26.3.2013 10:45:48"
Dim Cas2 As Date = Now
Dim Rozdil As Double = Cas2.ToOADate - Cas1.ToOADate
Dim PocetDni As Integer = Math.Floor(Rozdil)
Dim PocetHodin As Date = Date.FromOADate(Rozdil - PocetDni)
MsgBox(PocetDni & "dny a " & PocetHodin)
Jinak to vrací datum.
|