SHOW:
|
|
- or go back to the newest paste.
| 1 | - | Private Sub klik_Click() |
| 1 | + | Sub klik_Click() |
| 2 | Dim dny, hodiny, minuty, sekundy As Long | |
| 3 | ||
| 4 | dny = InputBox("Kolik dní zbývá do začátku výletu?")
| |
| 5 | hodiny = dny * 24 | |
| 6 | minuty = hodiny * 60 | |
| 7 | sekundy = minuty * 60 | |
| 8 | ||
| 9 | MsgBox "Do toho osudného dne zbývá " & dny & " dní, to je " & hodiny & " hodin, to je " & minuty & " minut, to je " & sekundy & " vterin !" | |
| 10 | ||
| 11 | End Sub |
