Default Calendar Format and Date

[trsisko]

I want to Default the Current Calendar Date Format to DD MM YYYY and want it to Open to Current Date?

Public CalendarVal As Date
Private Sub Calendar1_Click()
CalendarVal = Me.Calendar1.Value

Unload Me
End Sub
Private Sub UserForm_Activate()
    With UserCalendar
        .Top = Application.Top + 125
        .Left = Application.Left + 560
    End With
End Sub

 

[trsisko]

Solved

If m_PCSOutput = "4v1.0" Then
UserCalendar.Show
txtInput.Value = UserCalendar.Calendar1.Value
txtInput.Value = Format(Me.txtInput.Text, "dd mm yyyy")
Unload UserCalendar

End If
If m_PCSOutput = "5v1.0" Then
UserCalendar.Show
txtInput.Value = UserCalendar.Calendar1.Value
txtInput.Value = Format(Me.txtInput.Text, "dd mm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "5av1.0" Then
UserCalendar.Show
txtInput.Value = UserCalendar.Calendar1.Value
txtInput.Value = Format(Me.txtInput.Text, "dd mm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "40v1.0" Then
UserCalendar.Show
txtInput.Value = UserCalendar.Calendar1.Value
txtInput.Value = Format(Me.txtInput.Text, "dd mm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "41v1.0" Then
UserCalendar.Show
txtInput.Value = UserCalendar.Calendar1.Value
txtInput.Value = Format(Me.txtInput.Text, "dd mm yyyy")
Unload UserCalendar
End If
If m_PCSOutput = "60v1.0" Then
UserCalendar.Show
txtInput.Value = UserCalendar.Calendar1.Value
txtInput.Value = Format(Me.txtInput.Text, "dd mm yyyy")
Unload UserCalendar
End If
End Sub