davylenders123
Gebruiker
- Lid geworden
- 20 jun 2010
- Berichten
- 902
Ben bezig met een userform te maken.
Daar heb ik een kalender in zitten , als je de user form open doet dan komt in het vak van de datum de datum van vandaag te staan.
De datum kan je wijzigen door in het datum velt te klikken en dan krijg je een pop up kalender.
In de userform als je deze open doet staat de datum in het formaat dd-mm-yy.
Als je de datum wijzigt door in het datum velt te klikken en via de kalender een andere datum te kiezen wijzigt de opmaak in dd/mm/yyyy
Wat moet ik aan de code wijzigen om de datum opmaak uit de kalender ook in het formaat dd-mm-yy te krijgen ?
Daar heb ik een kalender in zitten , als je de user form open doet dan komt in het vak van de datum de datum van vandaag te staan.
De datum kan je wijzigen door in het datum velt te klikken en dan krijg je een pop up kalender.
In de userform als je deze open doet staat de datum in het formaat dd-mm-yy.
Als je de datum wijzigt door in het datum velt te klikken en via de kalender een andere datum te kiezen wijzigt de opmaak in dd/mm/yyyy
Wat moet ik aan de code wijzigen om de datum opmaak uit de kalender ook in het formaat dd-mm-yy te krijgen ?
Code:
Dim sn(41) As New CL_00MPlabel
Private Sub UserForm_Initialize()
For Each it In F_00.Controls
Set sn(it.TabIndex).v_label = it
Next
SC_01 = 0
End Sub
Private Sub SC_01_Change()
With SC_01
.Tag = DateAdd("m", SC_01.Value, Date)
M_00.Caption = Format(.Tag, "mmmm yyyy")
.Tag = DateSerial(Year(.Tag), Month(.Tag), 1)
.Tag = 1 + CDate(.Tag) - Weekday(.Tag, 2)
End With
For Each it In F_00.Controls
it.Tag = CDbl(CDate(SC_01.Tag) + it.TabIndex)
it.Caption = Format(it.Tag, "d")
it.ForeColor = &HC0C0C0 + &H40C0C0 * (Month(it.Tag) = Month(M_00.Caption))
it.BackStyle = Abs(it.Tag / 1 = Date)
Next
End Sub
