< návrat zpět

MS Excel


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

Zaslal/a 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. 7

Zaslat odpověď >

#051360
elninoslov
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
#051361
avatar
Moc děkuji .citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Maticový vzorec

elninoslov • 6.7. 7:19

Maticový vzorec

MiraP • 5.7. 12:13

Maticový vzorec

elninoslov • 5.7. 0:07

Maticový vzorec

MiraP • 4.7. 22:26

Maticový vzorec

r13 • 4.7. 14:23

Maticový vzorec

lubo • 4.7. 14:11

Maticový vzorec

r13 • 4.7. 12:20