vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 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

VB.NET - Ein- und Umsteiger
Re: Betrag in Euro / Cent teilen 
Autor: Manfred X
Datum: 17.04.15 17:45
[I]bei z.B. glatt 12€ sollte als Centteil '00' oder 12,3€ eben '30' ausgegeben werden.[/I] 

  Dim Wert As Decimal = 12.7D
 
  Dim EURO As Integer = CInt(Fix(Wert)) 'oder Truncate
  Dim CENT As Integer = CInt((Wert - EURO) * 100)
 
  MessageBox.Show("EURO: " & EURO.ToString("0") & "  Cent: " & CENT.ToString( _
    "00"))
Negative Zahlen erfordern Vorzeichen-Separierung!°

Übrigens: Vorsicht!
Diese Standard-Rundung des EuroCent-Anteils (durch CInt) ist nicht kaufmännisch!

Beitrag wurde zuletzt am 17.04.15 um 18:05:38 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Betrag in Euro / Cent teilen2.256Theo_kkv16.04.15 19:58
Re: Betrag in Euro / Cent teilen1.407ModeratorDaveS16.04.15 20:00
Re: Betrag in Euro / Cent teilen1.404Theo_kkv16.04.15 20:12
Re: Betrag in Euro / Cent teilen1.384ModeratorDaveS16.04.15 21:07
Re: Betrag in Euro / Cent teilen1.596Manfred X17.04.15 06:20
Re: Betrag in Euro / Cent teilen1.392effeff17.04.15 17:33
Re: Betrag in Euro / Cent teilen1.468Manfred X17.04.15 17:45
Re: Betrag in Euro / Cent teilen1.381Theo_kkv17.04.15 19:26
Re: Betrag in Euro / Cent teilen1.383Manfred X17.04.15 19:48
Re: Betrag in Euro / Cent teilen1.360Theo_kkv17.04.15 20:15

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