Date Entry Script

  • Thread starter Thread starter Larry Townsend
  • Start date Start date
L

Larry Townsend

I have the following Script I use in Lotus SmartSuite 9.5.
I am switching all my Scripts to Excel 2000.
I am done except for this one below.
I am stuck in the mud on this one. I enter "date number enter", "then month
number enter"
Help Please

Thank you
************
Sub GetDate
Dim userday As Integer
Dim usermonth As Integer
Dim useryear As Integer
usermonth% = Cint(Inputbox$("Enter the Month's Number."))
userday% = Cint(Inputbox$("Enter Day Number."))
.contents = Cstr(usermonth)&"/"&Cstr(userday)&"/"&Cstr(2004)
.FormatName = "31-Dec"
.TextHorizontalAlign = $AlignCenter
End Sub
************
 
Larry,

The following code may do what you want.
(Depending on the country this is being used in,
the date format may have to be changed.)

'--------------------------------------------
Sub GetUserDate()
Dim UserDate As Variant

Retry:
UserDate = InputBox(vbNewLine & "Enter the date - Month/Day/Year", _
" Larry Townsend Asks You To...", Format$(Date, " MMM/DD/YYYY "))
On Error Resume Next
UserDate = CDate(UserDate)

If Err.Number <> 0 Then
UserDate = MsgBox("Your entry is not a valid date. ", _
vbRetryCancel + vbExclamation, " OOPS")
If UserDate = vbCancel Then
Exit Sub
Else
Err.Clear
GoTo Retry
End If
End If

With ActiveSheet.Range("B4")
.NumberFormat = "DD-MMM"
.HorizontalAlignment = xlHAlignCenter
.Value = UserDate
End With
End Sub

'--------------------------------------------
Regards,
Jim Cone
San Francisco, CA
 
Back
Top