Format VBA Textbox for Date Only

[Dave Punky]

Hi all,

I'm trying to format a textbox so it will only display a date in the format "dd/mm/yyyy" and if the user has not entered the date in this format then once they exit the textbox it will revert to a blank box.

Annoyingly I can't just use Format(textbox.value,"dd/mm/yyyy") = False because it's just looking at the textbox value.

How can I get around this so it knows that it's either a date in the dd/mm/yyyy format or a blank string?

Many thanks.

 

[Trevor G]

what about something like this

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

'Dim dDate As Date
dDate = DateSerial(Year(Date), Month(Date), Day(Date))
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
dDate = TextBox1.Value
End Sub

Example other

Sub var1()
Dim varinput As Variant
vrinput = InputBox("Please enter a number or date or string")
If IsNumeric(varinput) Then
MsgBox (Format(varinput, "#,##0.00;(#,##0.00)"))
ElseIf IsDate(varinput) Then
MsgBox ("the date is " & Format(varinput, "dd mmm yyyy"))
Else
MsgBox ("the string is " & varinput)
End If
End Sub

 

[Dave Punky]

Thanks for the reply!

It didn't really work too well for me to be honest but I've found this method works best for my use:

If IsDate(Textbox.Value) = False Then
    Textbox.Value = ""
ElseIf IsNumeric(Format(Textbox.Value, "yyyymmdd")) = False Then
    Textbox.Value = ""
End If

I've got a case statement afterwards evaluating the results too but I've not had any problems doing it this way.

 

[sateesh kumar]

code is not working perfectly,
date format is dd/mm/yyyy when i enter 10/02/2014 it will taken as 02/10/2010