Beste allen,
Graag wil ik weten hoe ik een waarde, bijvoorbeeld 04 in een TextBox, kan omzetten naar de tekst April.
Ik wil bijvoorbeeld als tekst in een msgbox hebben: "De door u ingevoerde maand: April telt maximaal 30 dagen."
Onderstaand de code die ik heb.
Format(Maand, "mmmm"), werkt niet.
Ik hoor het wel.
Graag wil ik weten hoe ik een waarde, bijvoorbeeld 04 in een TextBox, kan omzetten naar de tekst April.
Ik wil bijvoorbeeld als tekst in een msgbox hebben: "De door u ingevoerde maand: April telt maximaal 30 dagen."
Onderstaand de code die ik heb.
Code:
Dim Dag As Long
Dim Maand As Long
Dim Jaar As Long
Dim AantalDagen As Long
Dag = TextBox1.Value
Maand = TextBox2.Value
Jaar = Label23.Caption
AantalDagen = DateSerial(Jaar, Maand + 1, 1) - DateSerial(Jaar, Maand, 1)
'Datumcontrole
If DateSerial(Jaar, Maand, Dag) > Date Then
MsgBox ("Uw ingevoerde datum ligt in de toekomst."), vbOKOnly, "Datuminvoer ongeldig"
Else
If TextBox1.Value > AantalDagen Then
MsgBox ("De door u ingevoerde maand: " & [B][COLOR="#FF0000"]Maand[/COLOR][/B] & " telt maximaal " & AantalDagen & " dagen."), _
vbOKOnly, "Datuminvoer ongeldig"
TextBox1.Value = vbNullString
TextBox1.SetFocus
Else
B = Format(DateSerial(Jaar, Maand, Dag), "d mmmm yyyy")
C = DatePart("ww", CDate(B) - Weekday(CDate(B), 2) + 4, 2, 2)
A = Application.Proper(WeekdayName(Weekday(B, vbMonday), False, vbMonday))
Label8.Caption = A & ", " & B & " ( Week: " & C & " )"
CommandButton5.Enabled = True
End If
End If
Format(Maand, "mmmm"), werkt niet.
Ik hoor het wel.
Laatst bewerkt: