Leren programmeren: reistijd

Private Sub cmdBereken_Click()
Dim gemiddeldesnelheid As Single
Dim afstand As Single
Dim minuten As Single
If Not IsNumeric(Me.txtAfstand.Text) Then Exit Sub
afstand = CSng(txtAfstand.Text)
If Not IsNumeric(Me.txtGemSnelheid.Text) Then Exit Sub
gemiddeldesnelheid = CSng(txtGemSnelheid.Text)
minuten = afstand / gemiddeldesnelheid * 60
Me.lblResultaat.Caption = "Je hebt " & minuten & " minuten nodig"
End Sub

Op te merken valt dat je in Visual Basic ook kan gebruik maken van het type Date. In zo'n datum zitten ook uren en minuten. Voordeel is dat je met zo'n datum kan rekenen en dat je die kan weergeven zoals je wil met de functie Format. Houd er rekening mee dat de eenheid (de waarde voor 1) een dag is van 24 uur.