< návrat zpět

MS Excel


Téma: čas nad 24 hodin rss

Zaslal/a 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 #024010
eLCHa
Hodina = CInt(Application.WorksheetFunction.Text(Cells(1, 1).Value, "[h]"))citovat
icon #024126
eLCHa
není začcitovat
#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
#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

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