< 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

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35