quickone, date formats

[rs2k]

I have a userform which has a text box for the date (the date comes from the calendar control) it is formatted as "dd/mm/yyyy" (UK format) when the data is transferred onto the WS it converts it to US format mm/dd/yyy. The worksheet is formatted as UK - "dd/mm/yyyy"

Can anyone explain why it is converting it, and more so, how to rectify it?

Many thanks

Colin.

 

[Norie]

Colin

How are you transferring the date?

 

[rs2k]

Hi Norie,
From the userform I have a cmdButton "Add to Bookings"

Private Sub cmdBookingsAddtoList_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Bookings")
'find first empty row in database
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Range("A" & irow) = txtBookingsDate.Value
.Range("B" & irow) = cmbBookingsClients.Text
.Range("C" & irow) = cmbBookingsTimeFrom.Value
.Range("D" & irow) = cmbBookingsTimeTo.Value
txtBookingsDate = " "
cmbBookingsClients = " "
cmbBookingsTimeFrom = " "
cmbBookingsTimeTo = " "
End With

End Sub

The calendar has the following code;

Private Sub CalendarBookings_Click()
frmBookings.txtBookingsDate.Value = Format(CalendarBookings.Value, "dd/mm/yyyy")
Unload Me
End Sub


Cheers
Colin.

 

[Norie]

Colin

Why not try using a true date value?

Does this help at all?

.Range("A" & irow) = DateValue(txtBookingsDate.Value)

 

[rs2k]

Cheers Norie, thats done the trick.

Colin.