< 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

nezavre samo outlock

€Ł мσşqμΐτσ • 24.7. 9:01

kopirovanie s predosleho mesiaca

€Ł мσşqμΐτσ • 24.7. 8:49

automaticky generator VBA

Michalko • 23.7. 20:32

kopirovanie s predosleho mesiaca

ivana1 • 23.7. 19:25

nezavre samo outlock

peter2 • 23.7. 18:59

upozornění na již existující soubor

Kalous • 23.7. 17:41

Porovnání dat a doplnění.

lachis • 23.7. 12:39