formatting a form to display date as yyyy-mm-dd

[cmazur71]

I have a form allows the user to enter a date, then writes that date to cell E3
If there is already a date in cell E3, I pre-populate my form with this date (so the user doesn't have to enter it again). When I do this, the format is always wrong
I want the format to be yyyy-mm-dd, but when I read the existing date in cell E3, it shows up in my form as mm/dd/yyyy
Is there a way I can format my form to always show dates as yyyy-mm-dd

If Worksheets("Quotation").Range("E3") <> "" Then
QuotationForm.Quote_Date.Value = Worksheets("Quotation").Range("E3") 'when I read in the date from cell E3, it's always formatting as mm/dd/yyyy...I want it to be yyyy-mm-dd
Else
TodayDate = Format(Date, "yyyy-mm-dd")
QuotationForm.Quote_Date.Value = TodayDate
End If

 

[dmt32]

Hi,
try this update to your code & see if does what you want

    With Worksheets("Quotation").Range("E3")
        Me.Quote_Date.Value = IIf(IsDate(.Text), .Text, Format(Date, "yyyy-mm-dd"))
    End With

Dave

 

[cmazur71]

I found this on another thread, and it did the job:

QuotationForm.Quote_Date.Value = Format(Worksheets("Quotation").Range("E3"), "yyyy-mm-dd")