inputbox

[defj]

How would I get an inputbox variable to be returned as a
date? I want the user to input a date...the date is then
compared with a list of other dates until the program
finds a date greater than the one entered. The inputbox
returns a string so it won't compare the variable with the
list of dates. Is there a way to convert a string to a
date?

 

[Don Guillett]

More details on YOUR string

 

[defj]

y = inputbox("enter date","Date")
x=1
do until y < worksheets("").cells(x,2) list of dates
x=x+1
loop

the error I'm getting is that x is "overflowed" (because
it doesn't find a date greater than the one entered)
Though when I look at the list, there are dates greater
than the one entered.

 

[J.E. McGimpsey]

one way:

Dim result As Variant
Do
result = Application.InputBox("Enter date:", Type:=2)
If result = False Then Exit Sub 'User clicked Cancel
Loop Until IsDate(result)
result = CDate(result)

 

[defj]

works like a charm-

thnx

-----Original Message-----
one way:

Dim result As Variant
Do
result = Application.InputBox("Enter date:", Type:=2)
If result = False Then Exit Sub 'User clicked Cancel
Loop Until IsDate(result)
result = CDate(result)



.