VBA - Date format from a input box

[filarap]

Hi all,

I am trying to find a way to have the date entered in the input-box from the user-form appear in specific formatting in designated cell, however i am often having day and month swapping places and cell formatting not working for me.

The code i have now is:
startday.Value = Format(startday.Value, "dd/mm/yyyy")
Sheet4.Range("d" & Rows.Count).End(xlUp).Offset(1, 0).Value = startday.Value


Startday is input-box caption

Can anyone please assist?
Regards
Filarap

 

[dmt32]

Hi,
Date from your textbox is a string which can be coerced to return a date. Assuming your textbox date includes numbers separated by valid date separators, DateValue Function should recognize the order for day, month and year according to the short Date format you have specified for your system.

try changing your code from this:

startday.Value = Format(startday.Value, "dd/mm/yyyy")
Sheet4.Range("d" & Rows.Count).End(xlUp).Offset(1, 0).Value = startday.Value

to this

Sheet4.Range("d" & Rows.Count).End(xlUp).Offset(1, 0).Value = DateValue(startday.Value)

and see if this does what you want.

Dave

 

[filarap]

Thank you Dave,

Yes, this work perfectly. Thank you for assistance with this.

Kind regards
Filarap