VBA: Jahreszahl in cbo automatisch ergänzen?

Hi,
in einer Combobox soll, nachdem Tag und Monat manuell eingegeben worden sind, das laufende Jahr automatisch ergänzt und „gebläut“ werden. Kennt jemand von Euch einen Code, der das kann? Danke für Eure Hilfe
Gruß
Wilhelm

Hallo !

public sub cmbDatum\_lostfocus()
dim Jahr as string
Jahr =format(Date,"YYYY") ' oder "YY", wie Du willst
cmbDatum.text=cmbDatum.text & Jahr

end sub

Wenn das nicht die Lösung war, spezifiziere Dein Problem bitte genauer.


Gruß



Gollum

hi,

Dim MyDate, MyYear
MyDate = #February 12, 1969# ’ Assign a date.
MyYear = Year(MyDate) ’ MyYear contains 1969.

aus der msdn…

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]