Domanda.

da eligian   eligian@libero.it

tramite inputbox richiedo all'utente l'inserimento di una determinata data, vorrei porre come condizione che tale data inizi obbligatoriamente con il primo giorno del mese; è possibile verificare tale condizione

grazie dell'aiuto

Gianfranco

Risposta.

Gianfranco, sul sito vecchio e nuovo trovi diversi esempi di come lavorare con le date, prima di chiedere, prova a darci un occhiata, mi piacciono le persone che si danno da fare, molto meno quelle che cercano la pappa scodellata. Comunque
per questa volta, questa è la routine:
Sub primo()
10:
data = InputBox("introduci la data")
If data = "" Then Exit Sub
If IsDate(data) Then
Y = Day(data)
If Y <> 1 Then
MsgBox "Introdurre solo la data del primo del mese"
GoTo 10
Else
qui inserisci le istruzioni di cosa fare se la data comincia col primo
End If
End If
End Sub

saluti, ennius