MS Excel

Téma: Ověření datumu TextBox1.Text

Zaslal/a Scraper 18.10.2021 18:25

Ahoj přátelé na na Wall.cz

Prosím o radu ,
je možné po zadání data ve formuláři
TextBox1.Text = Format(Date, "dd.mm.yyyy")
pojistit , když uživatel zadá datum menší než je dnešní ?
Měl by mít možnost dnešní a vyšší .
Děkuji
Staňa V.

Zaslat odpověď >

elninoslov(18.10.2021 20:15)#051360

Príklad:
Dim strDatum As String
Dim Datum As Date
Dim bolOK As Boolean

strDatum = Replace(TextBox1.Text, ".", "/")
If IsDate(strDatum) Then
Datum = DateValue(strDatum)
bolOK = Datum >= Date
End If
MsgBox bolOK
citovat

Stana-V(19.10.2021 7:43)#051361