Help -> Visual Basic

[Chaka-Checka]

fooolgendes Problem:

Was ich will:
Wenn ich auf Vormittag klick soll das Programm 3,5 * (Eingegebene Zeit) / 100 rechnen

Bei klick auf Tag 4,5 * Eingegebene Zeit / 100

usw...

Problem... das Programm scheint beim Ergebnis immer zu runden!
Also wenn ich als Zeit z.B.: 100 eingeb müssten bei Vormittag 3,5 rauskommen... aber er gibt mir 4 aus! Wie kann ich das Verhindern?

Hier der Programmcode:

Option Explicit
Dim mDauer As Long
Dim mMinutenPreis As Long
Dim mAusgabe As Long

Private Sub cmdEnde_Click()

End

End Sub

Private Sub cmdNeu_Click()

txtZeit = ""
txtAusgabe = ""
optVormittag = False
optTag = False
optNacht = False
txtZeit.SetFocus

End Sub

Private Sub Form_Load()

Form1.Show
txtZeit.SetFocus
optVormittag = False
optTag = False
optNacht = False

End Sub

Sub przBerechnen()

mDauer = CDbl(txtZeit.Text)
If optVormittag = True Then
mAusgabe = (3.5 * mDauer / 100)

Else
If optTag = True Then
mAusgabe = (4.5 * mDauer / 100)

Else
If optNacht = True Then
mAusgabe = (2.5 * mDauer / 100)

End If
End If
End If

End Sub

Private Sub optNacht_Click()

przBerechnen
przAusgabe

End Sub

Private Sub optTag_Click()

przBerechnen
przAusgabe

End Sub

Private Sub optVormittag_Click()

przBerechnen
przAusgabe

End Sub

Sub przAusgabe()

txtAusgabe = Format(mAusgabe, "0.00")

End Sub

 

[tobi]

Habe noch nie was in VB gemacht aber in Java und C steht der Variabelen Typ 'Long' den du verwendest für ganzzahlige Zahlen mit Vorzeichen.
Sollte also auf float oder double abgeändert werden und funktionieren. Außer bei VB ist das anderst

 

[Chaka-Checka]

argh..... jo stimmt.. variable falsch deklariert... so'n krampf

danköööö... ciao

 

[tobi]

biddddääää