Hallo, kann mir mal jemand helfen? Ich bin gerade dabei ein Programm in VB zu schreiben was mir aus zwei eingebbaren Zeiten einen Countdown erstellt, aber der Algorithmus zur Errechnung der Zeit für den Countdown will nichts so wirklich funktionieren. Hier mein Code:
stunde = Val(txtstd2.Text) - Val(txtstd1.Text)
If stunde < 0 Then
If txtstd2.Text = 0 Then
stunde = 24 - Val(txtstd1.Text)
Else
stunde = Val(txtstd1.Text) - Val(txtstd2.Text)
End If
End If
minute = Val(txtmin2.Text) - Val(txtmin1.Text)
If minute < 0 Then
If txtmin2.Text = 0 Then
minute = Val(txtmin1.Text)
Else
stunde = stunde - 1
minute = Val(txtmin1.Text) - Val(txtmin2.Text)
End If
End If
sekunde = Val(txtsek2.Text) - Val(txtsek1.Text)
If sekunde < 0 Then
If txtsek2.Text = 0 Then
sekunde = Val(txtsek1.Text)
Else
minute = minute - 1
sekunde = Val(txtsek1.Text) - Val(txtsek2.Text)
End If
End If