|
< stimmt's? (zumindest halbwegs, für diesen einsatzzweck hier?!)
Hallo Ralf H,
im Prinzip ja, jedoch ist der so erzeugte Code schlecht lesbar, denn da musste schon raten
(ist txtLaufzeit eine Variable oder ein Objekt aus der Form ?).
Der Inhalt von Textboxen ist immer "String", dadurch dass in Sub cmdBerechnen_Click() keine Variable deklariert wurde ist für den Kommandointerpreter halt alles vom Typ Variant und wird, soweit logisch auch berechnet. Bis eben auf den Vergleichsoperanden ">" o.a.
So etwas nennt man(n) "Quick&Dirty", der Zweck heiligt die Mittel ;-)
Klassische Schreibweise wäre zum Bleistift :
Private Sub CommandButton1_Click()
Dim mLaufzeit As Integer
Dim mZins As Double
Dim mBetrag As Double
Dim mWunsch As Double
mZins = CDbl(Me.txtZins.Text)
mBetrag = CDbl(Me.txtAnfang.Text)
mWunsch = CDbl(Me.txtWunsch)
Do
mBetrag = mBetrag + mBetrag / 100 * mZins
mLaufzeit = mLaufzeit + 1
Loop Until mBetrag > mWunsch
Me.txtLaufzeit = Format(mLaufzeit, "#0")
End Sub
Zwischen Quick u. Klassisch liegen, wie bei Microsoft üblich noch 1/2 Dutzend
Gruß
|