vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: rechen problem 
Autor: _void
Datum: 31.07.03 23:43
hi Ace.

*getüfftelt*
Das Problem ist das Komma, das du zum Trennen der Dezimalstellen benutzt. Du müsstest dich eigentlich sogar wundern, warum er in Text4 immer nur glatte Werte schreibt.
Du musst das Komma durch einen Punkt ersetzen, weil die Val-Funktion nur einen Punkt für gültige Zahlen mit Nachkommastellen akzeptiert.

Hier die Lösung: 
Dim g As Currency
 
g = CCur(Val(Text2.Text) * Val(Replace(Text3.Text, ",", ".")))
Text4.Text = FormatCurrency(g, 2)
If Text3.Text <> "" Then Text3.Text = FormatCurrency(Text3.Text, 2)
_void

________________________________________________________________________
::Nicht weil es schwer ist wagen wir es nicht, sondern weil wir es nicht wagen ist es schwer::

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
rechen problem67ace321331.07.03 21:57
Re: rechen problem311ModeratorDieter31.07.03 23:34
Re: rechen problem234_void31.07.03 23:45
Re: rechen problem337_void31.07.03 23:43

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel