Visual Basic --> Kommastellen

[Potassium]

so versuche es mal damit:

Option Explicit

Private Sub Form_Load()
Dim Kommastellen, Begin, Zahl

Zahl = 2.589734567867
'Zahl = 2454541.2
Begin = InStr(1, Zahl, ",")
If Begin > 0 Then
    Kommastellen = Mid(Zahl, Begin + 1, 2)
Else
    
End If



If Len(Kommastellen) = 0 Then
    Kommastellen = "00"
ElseIf Len(Kommastellen) = 1 Then
    Kommastellen = Kommastellen & 0
End If

Zahl = Mid(Zahl, 1, Begin - 1)
Zahl = Zahl & "," & Kommastellen
MsgBox Zahl
End Sub

ich hoffe das ist was du brauchst

[PunkTey]

ja die sache is halt die .. dass ich 93 preise habe die alle auf zwei dezimalstellen abgeschnitten gehören. dsehalb sollte s ned allzu viel aufwändig sein .. wei ldas coding sonst .. muha .. einfach zu viel wird

nur ich kann mit dem prog ned großartig weiter machen bzw. will es ned total durchprogrammieren, wenn ich dann vielleicht alle ausgaben umschreiben muss wegen diesem format befehl.

probier zwar auch schon seit geraumer zeit mit diesem format befehl rum, aber es funktioniert ned so .. wies sollte er rundet eben auf ne ganzzahl.

[Potassium]

wie gefällt dir obere möglichkeit?

[PunkTey]

hehe ist echt süß ... aba wenn ich das ganze für 93 beträge mach schau ich alt aus

[Potassium]

warum bitte?
mach doch ne for-schleifen oä.
und bei 93 einträgen dauerts ned mal lang

[Potassium]

ajo das eine else kannst ausse nehmen

[PunkTey]

na ja .. also mir wäre so eine simple anweisung in der ausgabe lieber

sowas wie lblausgabe=~irgendeine formatierende anweisung~ Variable

sowas wär fein

aba mit so ner schleife etc. kann ich alles jetzt umprogrammieren und ich hab nimma so viel zeit für dieses projekt dass ich da von neu anfange

[PunkTey]

ja und wo soll ich das einbauen?

weil die beträge werden in einem anderen formular eingegeben als sie ausgegeben werden. und die beträge sind alle in variablen drinnen .. und ich habe insgesamt .. 20 formulare wo beträge eingegeben werdn

[Potassium]

aso na dann mach einfach ne funktion draus.

[PunkTey]

und wie mach ich die funktion? lol ich bin ein total noob was visual basic angeht. ich mein ich versuchs halt immer so einfach wie möglich zu programmieren, auch wenn es pfuschig is aba meinem prof is egal wie ichs programmiere nur funken soll es

nur wie mach ich des mit ner funktion?
hab ja 93 verschiedene variablen