Stránka 1 z 1

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

Napsal: 21 dub 2011 11:17
od 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? :-(

Re: Excel - VBA - malá chybička v makru

Napsal: 21 dub 2011 11:24
od 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

Re: Excel - VBA - malá chybička v makru

Napsal: 21 dub 2011 11:27
od bobidogi
Na stotisíckárt děkuji :bigups: Teďka je to perfektní!!!