Hodina = CInt(Application.WorksheetFunction.Text(Cells(1, 1).Value, "[h]"))citovat
Zaslal/a
6.3.2015 17:40Zdraví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
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.