Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Dates
Many thanks Fred.
I suppose this is a frequently asked question as far as .xls is concerned. Maybe Microsoft should think of providing this feature in their future releases (??) of having text boxes of date type; thereby avoiding lots of unnecessary control by users. br -----Original Message----- Micheal, below is code I often use when a Date input is required. I assume the userform has at least a Textbox, an OK button, and a Cancel button. All of the code is the userform code. Goodluck Fred Private Sub OKButton_Click() If ValidDate Then Me.Tag = "OK" Me.Hide Else MsgBox "The date is not valid. Please re-enter" TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Value) TextBox1.SetFocus End If End Sub Private Sub CancelButton_Click() Me.Tag = "Cancel" Me.Hide End Sub Private Function ValidDate() As Boolean If IsDate(TextBox1.Value) Then TextBox1.Value = Format(CDate(TextBox1.Value), "d- mmm-yyyy") ValidDate = True Else ValidDate = False End If End Function Private Sub TextBox1_AfterUpdate() If ValidDate Then TextBox1.Value = Format(CDate(TextBox1.Value), "d- mmm-yyyy") End If End Sub "Michael Langust" wrote in message ... hi I have a user form on which I want the users to enter data in date formats. The text box properties only seem to allow text fields. Thus, how do I do the following within a vb routine: (a) convert input entered by user into a date type field (b) validate that user has entered data that is a valid date Many thanks in anticipation Micky . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Linking computer dates (time) to spreadsheet dates that have formu | Excel Worksheet Functions | |||
Stop dates from showing as numbers - when formated as dates | Excel Discussion (Misc queries) | |||
how do I sort a column of random dates into Consecutive dates | Excel Worksheet Functions | |||
Identifying unique dates in a range of cells containing dates... | Excel Discussion (Misc queries) | |||
Charting data against dates where dates are not at fixed intervals | Charts and Charting in Excel |