< návrat zpět

MS Excel

Téma: čas nad 24 hodin rss

Zaslal/a jirka100 6.3.2015 17:40

Zdravím všechny,
mám makro
Sub Hodina()
Dim Cas As Date
Dim Hodina As Integer
Cas = Cells(1, 1).Value
Cas = Format(Cas, "h:mm")
Hodina = Hour(Cas)
MsgBox Hodina
End Sub
problém je, když čas v buňce A1 přesáhne 24 hodin počítají se hodiny od 1. Jde to vyřešit formátem?

Děkuji

Zaslat odpověď >
icon eLCHa(7.3.2015 0:01)#024010
eLCHa
Hodina = CInt(Application.WorksheetFunction.Text(Cells(1, 1).Value, "[h]"))citovat
icon eLCHa(16.3.2015 6:53)#024126
eLCHa
není začcitovat
lubo(16.3.2015 11:11)#024134
avatar
Proč formátem?????

Formát slouží ke konverzi hodnoty na text a výsledek má být číslo.

čas je ukládán ve dnech, 1 = 24 hodin.

Čas na hodiny se převede vynásobením 24. pak si to můžete ještě podle potřeby zaokrouhlit.

Na okraj. Klik na Formát a F1 Vám nefunguje?citovat
elninoslov(20.3.2015 20:28)#024208
elninoslov
Ubehnutý čas vzorcom aj makrom. Je to rozrátané na ubehnuté hodiny a minúty. Samozrejme sa dajú dopočítať ešte zostaté ubehnuté sekundy, do makra som implementoval. Ak to teda bolo myslené takto...
Příloha: rar24208_ubehlohodin.rar (15kB, staženo 34x)
citovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje