datavalue e confronto date

Hai un problema con Excel?

Nuova discussione

datavalue e confronto date
di Matteo (utente non iscritto) data: 23/04/2014 11:52:01
ciao, ho creato una inout box dove inserire una data
in particolare la data la inserirò così: "1/1/2014"

se volessi fare un confronto ora trea la data inserita e una data precisa come potrei scrivere?

io ho provato cosi ma mi dice tipo non corrispondente

grazie a chi mi può dare una mano
strName = InputBox("inserisci la data") If strName = vbNullString Then Exit Sub If DateValue(" & strname & ") < DateValue("1/2/2014") Then

di Mister_x (utente non iscritto) data: 23/04/2014 23:19:39
ciao

una variabile non si mette mai tra virgolette in una funzione

If DateValue(" & strname & ")

ciao

Sub date_controllo()
Dim strName As String
strName = InputBox("inserisci la data") ''la data va inserita con 1/1/2014
 If strName = vbNullString Then Exit Sub
   If DateValue(strName) < DateValue("1/2/2014") Then
     MsgBox " al data e' minore di quella di valutazione OK"
  Else
    MsgBox "data uguale o maggiore"
 End If
End Sub

Vuoi Approfondire?