< návrat zpět

MS Excel


Téma: Chyba s datumem rss

Zaslal/a 18.3.2022 10:02

Ahoj, mám v kódu tuto část:
On Error Resume Next
dtStamp = Application.InputBox(Prompt:="Potvrď čas provedení tohoto úkonu", Title:="Časové razítko", Default:=Format(Now(), "dd.mm.yy hh:mm"), Type:=2)
If Err <> 0 Then
MsgBox "zadaná hodnota nejde převést do formátu datum/čas"
GoTo znoVa
End If

přičemž Dim dtStamp As Date

Na všech PC toto funguje, pouze na jednom to kolabuje. Příkaz pro načtení aktuálního času do proměnné dtStamp tam vyhodí chybu 13. Asi to souvisí s nějakým nastavením času, ale ve Windows to máme všichni dlouhý i krátký formát datumu stejně.
Nevěděl by někdo co může způsobovat tuto chybu?
Předem dík moc!

Zaslat odpověď >

#052310
avatar
Vyzkoušejte tento tvar: Default:=Format$(Now(), "dd.mm.yy hh:nn")citovat
#052311
avatar
Děkuji,

vyzkoušel jsem to, ale chyba stejná 4citovat
#052313
elninoslov
Ani toto nepomôže?:
"[$-405]dd.mm.yy hh:mm"
Verzia a jazyk Win?
Verzia a jazyk Office?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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09