Zahl mit 4 Nachkommastellen ausgeben ohne Currency oder Format

  • Excel

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Zahl mit 4 Nachkommastellen ausgeben ohne Currency oder Format

    Guten tag liebe Leidensgenossen,

    ich soll ja wie schon einmal erwähnt, ein VBA Programm unter Excel schreiben mit mehreren Lösungsansetzten.
    Bei der einen Lösung habt Ihr mir ja schon sehr weitergeholfen, doch nun kommt das nächste Problem.
    Hier einmal mein Quellcode:

    Visual Basic-Quellcode

    1. Public Function y(ByVal x As Double) As Double
    2. Dim a As Double
    4. y = x
    6. a = ((x + (y / x)) / 2)
    8. Do Until a ^ 2 = y
    9. x = a
    10. a = ((x + (y / x)) / 2)
    12. Loop
    14. y = a
    16. End Function

    Visual Basic-Quellcode

    1. Public Function y(ByVal x As Double) As Double
    2. Dim a As Double
    4. y = x
    6. a = ((x + (y / x)) / 2)
    8. Do Until a ^ 2 = y
    10. x = x - 0.00001
    11. a = ((x + (y / x)) / 2)
    13. Loop
    15. ' y = Math.Round(CDec(y), 4)
    16. y = a
    18. End Function


    Ich weiß nicht mehr weiter. Wäre Euch verbunden, wenn Ihr mir helfen könnt.

    ahoi,

    versuch mal deine double variable gleich einen wert zuzuweisen

    Visual Basic-Quellcode

    1. Dim a As Double = 0.0000
    Grüße Manu

    Was Gott dem Menschen erspart hat, kann der Computer.
    Billy ©, (*1932), Schweizer Aphoristiker
    Quelle: www.Aphorismen.de

    Miau ^^
    Danke für deine Antwort aber wenn ich das so eintippe wie Du es geposted hast, dann spuckt er eine Meldung raus mit "Fehler beim kompelieren: Erwartung: Anweisungsende"
    Achso da fällt mir ein, ohne den Datentyp Currency gerät das ganze Programm in eine Endloschleife.
    Also wer von mir irgentwie ein Programm brauch, das den Rechner auslastet, ich schaffe das auch mit VBA Anwendungen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „alucard“ ()

    Das größte Problem ist im moment eigt., das wenn ich das ganze mit Zahlen wie z.B. 15 berechne, gerät das Programm in eine Endlosschleife.
    Mit Currency ist das Problem nicht aufgetreten, weil das Programm ja nie mehr als vier Stellen berechnet hat, somit war es auch nie überfordert. Nur da ich das ganze jetzt ohne Currency umsetzten soll, bin ich einer kleinen Zwickmühle.

    Ich muss ja nebenbei auch meinen anderen Tätigkeiten nachkommen.

    Danke für Eure Hilfe.

Facebook
Telefonspende