✔ Jahr und Tag von Datum abziehen

[flotschie]

Hi, ich muss, falls eine date-variable mit Jahr und Tag geliefert wird, das Jahr und den Tag abziehen, so das nur die Uhrzeit stehen bleibt. Wie kann ich das machen? Bitte konkreten Code posten da ich mit der timespan-Klasse auf Kriegsfuss stehe

 

[flotschie]

Schon gefunden. Also, wenn man davon ausgeht, das die 'zeit' mit oder ohne Jahr&Tag geliefert wird, gehts so:

 Dim zeit_2 As Date = zeit.AddYears(Date.Now.Year - 1 - (zeit.Year - 1)).AddDays(Date.Now.DayOfYear - 1 - (zeit.DayOfYear - 1))
            Dim zeit_jetzt As Date = CDate(Now)

            Dim diff As TimeSpan = zeit_jetzt.Subtract(zeit_2)

 

[JensG]

Das geht auch einfacher

Dim newDate As Date = Date.Now

MsgBox(newDate)
MsgBox(Format(newDate, "HH:mm:ss"))

 

[flotschie]

AAHH Danke