Warum erfolgt die ausgabe nicht (RealBasic

  1. KonBon

    KonBon Thread StarterMacUser Mitglied

    Mitglied seit:
    11.02.2003
    Beiträge:
    4.686
    Zustimmungen:
    20
    Warum schreibt das Programm nicht das Ergebnis aus Bis-Von nicht in das Feld Stunden? Ist irgendwas falsch deklariert?
    In den Von und Bis Feldern stehen Werte zw. 0 und 24
    mit bis zu zwei Nachkommastellen (25,50,75)
    Ich sitze schon ne Stunde dran und find den Fehler nicht, hatte erst auch Probleme mit der MsgBox aber die habe ich behoben bekommen.
    Code:
     Dim Von As Double = val(txtVon.Text) 
      Dim Bis As Double = val(txtBis.Text) 
      Dim Stunden As Double = val(labStunden.Caption) 
      
      If Von > 24 then 
        Msgbox ("Achtung, die eingegebende Uhrzeit ist fehlerhaft"+ EndOfLine +EndOfLine +"Achten sie darauf das die Zeit zwischen 0 und 24 Uhr liegt") 
      Elseif bis > 24 then 
        Msgbox ("Achtung, die eingegebende Uhrzeit ist fehlerhaft"+ EndOfLine +EndOfLine +"Achten sie darauf das die Zeit zwischen 0 und 24 Uhr liegt") 
      End if 
      
      Stunden = Bis - Von
     
    KonBon, 17.09.2005
  2. KonBon

    KonBon Thread StarterMacUser Mitglied

    Mitglied seit:
    11.02.2003
    Beiträge:
    4.686
    Zustimmungen:
    20
    Ahh, Problem gelöst.
     
    KonBon, 17.09.2005
Die Seite wird geladen...