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]