Dim zeitGegeben As Date = Date.Parse("23:17:20")
Dim zeitGesucht As Date = zeitGegeben.AddHours(7.0F)
Label1.Text = "zeitGegeben = " & zeitGesucht.ToString("HH:mm:ss")

Zitat:

Das Dateobjekt zeigt mir aber die Zeit nur als 12 Stundenformat an. D..h anstatt 23 Uhr wird mir hier nur 11 Uhr angezeigt

-----
"There's never enough time to do all the nothing you want."
(Calvin and Hobbes)