Thread: Date formatting issue in user form
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Fadi Chalouhi Fadi Chalouhi is offline
external usenet poster
  
Posts: 5
Default Date formatting issue in user form
Hi Jennifer,

try this. Private Sub txtDate_Exit(ByVal cancel As
MSForms.ReturnBoolean)
txtDate.Value = Format( date("20" &
RIGHT(Me.txtDate.Value,2),LEFT(Me.txtDate.Value,2) ,MID(Me.txtDate.Value,3,2)),
"dd/mmm/yy")
End Sub

be careful on reformatting the textbox when you re-enter it.

HTH

Fadi
www.chalouhis.com/XLBLOG

Reply With QuoteReply With Quote