|
hallo,
ich brauche zur Ermittlung welchen Namen der erste Tag eines Monats hat die Jahreszahl des aktuellen Jahres und die "Monatszahl" des aktuellen Monats.
der Code erzeugt:
jstr="2012" 'für das aktuelle Jahr
mstr="7" 'für den aktuellen Monat, also: Juli
Private Sub CommandButton1_Click()
Dim jstr As String, mstr As String, dstr As String
Dim d As Date
jstr = Year(Date)
mstr = Month(Date)
dstr = "01." & mstr & "." & jstr
d = dstr
Danach setze ich dann "dstr" als string - bestehend aus u.a. "mstr" und "jstr" - zusammen und weise diesen string dann dem Datumswert "d" zu.
Das klappt ganz gut - aber weil es um die 12 Monate geht, soll "mstr" z.B. im Fall Juli: "07" oder im Fall Dezember: "12" sein.
Also "mstr" soll mit 2 Stellen (nicht Nachkommastellen!!!) dargestellt werden.
Der Präfix (s.u.) macht keinen Sinn, da es dann im Dezember "012" wäre. Vielen Dank für die Hilfe im Voraus!! Viele Grüße, joerg
dstr = "01.0" & mstr & "." & jstr
|