Excel - VBA - malá chybička v makru Vyřešeno

[bobidogi]

Ahoj, prosím moc někoho, jestli nevidím, kde mám chybu v tomto makru:

Kód: Vybrat vše

Sub pocet()
Dim dny, hodiny, minuty, sekundy As Integer

dny = InputBox("Zadejte počet dní zbývajících do začátku výletu")
hodiny = dny * 24
minuty = hodiny * 60
sekundy = minuty * 60

vysledek = MsgBox("Do začátku výletu zbývá " & dny & " " & "dní, a to je"" " & hodiny & " " & "hodin, to je"" " & minuty & " " & "minut, to je""  " & sekundy & " " & "vterin""")

End Sub

Do formuláře se má zadat, kolik dní zbývá do začátku výletu a makro přepočítá dny na hodiny, minuty a vteřiny. Problém je v tom, že mi to pořád hází DEBUG na řádek "sekundy = minuty * 60". Když to odstraním, tak to v pohodě vypočítá co má a u vteřin to hodí 0.

Neví prosím někdo, čím by to mohlo být?

[Reklama]

[Poki]

Rekl bych, ze Integer je na tak velkou hodnotu (sekundy) prilis omezeny datovy typ. Zkusil bych radsi Long.
Pak jsem jese videl v MsgBoxu zbytecne vkladani mezer - da se to resit jednoduseji, prikladam:

Kód: Vybrat vše

Sub pocet()
Dim dny, hodiny, minuty, sekundy As Long

dny = InputBox("Zadejte počet dní zbývajících do začátku výletu")
hodiny = dny * 24
minuty = hodiny * 60
sekundy = minuty * 60

MsgBox "Do začátku výletu zbývá " & dny & " dní, a to je " & hodiny & " hodin, to je " & minuty & " minut, to je " & sekundy & " vterin"

End Sub

[bobidogi]

Na stotisíckárt děkuji Teďka je to perfektní!!!