• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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.

Jméno
Kontrola
Text
	Ukázka

---

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

Moc děkuji .citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse