Results 1 to 2 of 2
  1. #1
    Join Date
    Apr 2007
    Location
    Stalybridge, Manchester
    Posts
    273

    Unanswered: User Form & Calendar

    I have this code below that is great and drops the chosen date from a popup Calendar into the TextBox on my form. My only problem is that it show in an American format how can I change it so that its showing as "dd-mmm-yy"?

    Option Explicit

    Private Sub Calendar1_DblClick()
    usrfrmReport.txtFormDate = usrFrmCalendar.Calendar1.Value
    Unload Me
    End Sub

    Private Sub UserForm_Initialize()
    'Change the Calendar date to todays date
    usrFrmCalendar.Calendar1.Value = Date
    End Sub
    Last edited by JezLisle; 11-20-08 at 05:28.

  2. #2
    Join Date
    Apr 2004
    Location
    Derbyshire, UK
    Posts
    789
    Provided Answers: 1
    Hi

    How about

    usrfrmReport.txtFormDate = Format(usrFrmCalendar.Calendar1.Value,"dd-mm-yy")

    ??

    MTB

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •