variables

[MAMIBUSSOL]

how do i ask a user for a date, and store the date as a variable

 

[shg]

One way of many:

    Dim v As Variant
    
    Do
        v = InputBox("Date?")
        If Len(v) = 0 Then Exit Sub
    Loop Until IsDate(v)
    
    v = CDate(v)
    MsgBox v

 

[MAMIBUSSOL]

Dim startdate As Variant
Do
InputBox ("STARTDATE")
If Len(startdate) = 0 Then Exit Sub
Loop Until IsDate(startdate)

startdate = CDate(startdate)
MsgBox startdate

this is not storing a date, I have changed variant to date format, but nothing is being stored

 

[MAMIBUSSOL]

sorry being an idiot, figured it out