Hallo,
Die kurze Lösung lautet:
Dim DatumZeitMinusEins As DateTime = DateTime.Now.AddHours(-1)
Console.WriteLine("{0}", DatumZeitMinusEins)
Die Erläuterung ist ein klein wenig länger:
Tue Dir selbst einen Gefallen und aktiviere
Option Strict On !
Dabei hättest Du gleich bemerkt das "Dim A As String" fehlerhaft ist,
denn die Methode liefert als Rückgabe ein DateTime, mit der man rechnen kann.
Nur ohne die Option hilft Dir Visual Basic und macht eine Zeichenkette daraus,
mit der man aber nicht mehr viel anfangen kann, als sie ausgeben.
Desweiteren ist das langatmige
My.Computer.Clock.LocalTime
ist letztendlich nichts weiter als ein Synonym für
DateTime.Now
und deutlich schneller getippt, und wie die meisten My... Methoden ziemlich überflüssig.
Weitere Informationen zum Rechnen mit Datum und Zeit findest Du unter
Durchführen arithmetischer Datums- und Uhrzeitoperationen Gruß Elmar
