Inputbox E Date

[alchimista84]

AVENDO QUESTO CODE:

dim data as date
dim data1 as ??? <-- cosa si mette x poter immediatamente dopo inserire con un input box una data??

inputbox=("Inserire data da controllare")

if data = data1 then ...

help!!!

[xegallo]

dim inpRisp as string
dim data as date

impRisp = inputbox("xxx")
if data = cdate(impRisp)then

[alchimista84]

Dim impRisp As String
Dim data As Date

Private Sub Command1_Click()
impRisp = InputBox("xxx")
Print Date
Print impRisp
If data = CDate(impRisp) Then
MsgBox ("ciao")
Else
MsgBox ("bau")
End If


End Sub

[xegallo]

ma data che valore ha?

[optime]

che vuol dire "non funziona"? errore? risultato non all'altezza delle aspettative? esplode il pc? esce acqua dal quadro in soggiorno quando accendi la luce?

[xegallo]

Originariamente inviato da optime
che vuol dire "non funziona"? errore? risultato non all'altezza delle aspettative? esplode il pc? esce acqua dal quadro in soggiorno quando accendi la luce?

LOL

[alchimista84]

quanto sei simpatico!!

non funziona nel senso che se inserisco una data con l'imputbox, la data di oggi, quello mi dice ke non è uguale e fa uscire la scritta "bau"

[optime]

Originariamente inviato da alchimista84
quanto sei simpatico!!

non funziona nel senso che se inserisco una data con l'imputbox, la data di oggi, quello mi dice ke non è uguale e fa uscire la scritta "bau"

grazie del complimento. ricambio, dicendoti che la variabile data e'.... vuota! rileggiti bene il codice.

[alchimista84]

e cosa devo inserire? data = date ????

[optime]

il simpaticone dice: si'.