Hallo
Ich möchte die Differenz zwischen Datum aus "DTPicker1" und dem aktuellen Datum "Date" in einer TextBox erscheinen lassen
z.B. 3 Jahre, 4 Monate
Hier mein Code:
Private Sub TextBox_DateDiff_Change()
TextBox_DateDiff.Value = DateDiff("d", DTPicker1, Date)
End Sub
Problem 1
Wenn ich das Datum im Kalender (DTPicker1) ändere erscheint zunächst in der TextBox nichts. Erst wenn ich mit dem Cursor in die TextBox klicke
und auf der Tastatur eine Eingabe mache erscheint die gewünschte Differenz.
Problem 2
Wie kann ich noch das "Jahr" miteinbeziehen? Sprich ------ 4 Jahre, 6 Monate -------
DateDiff("y", xxxxxxxx) funktioniert nicht so wie in Excel.
Besten Dank im Vorraus
Gebhard
|