🚀 go-pugleaf

"WebMasterPro" <nospam@nospam.it> ha scritto nel messaggio
news:5HKcd.46310$H11.1620580@twister1.libero.it...
> Salve a tutti,
> vi dico subito che ho un problemino in visual basic 6. Perdonate se le mie
> perplessit� sono banali, ma ancora devo imparare molto.
>
> Ho scritto queste poche righe di codice per fare quantit� prodotto per
> prezzo (3 righe) e poi i totali:
>
>
>     Dim var1 As Double
>     var1 = Val(Text1.Text) * Val(Text2.Text)
>      Label1.Caption = var1
>
>     Dim var2 As Double
>     var2 = Val(Text3.Text) * Val(Text4.Text)
>      Label2.Caption = var2
>
>     Dim var3 As Double
>     var3 = Val(Text5.Text) * Val(Text6.Text)
>      Label3.Caption = var3
>
> Label4.caption = Val(Label1.Caption) + Val(Label2.Caption) +
> Val(Label3.Caption)
>
> Non capisco come mail in Label4.Caption non mi spuntano i decimali.
> Negli altri label con le cifre in euro ci sono i decimali, ma nel label4
che
> � una semplice somma, spunta solo il numero intero. Come mai?
> Spero qualcuno mi aiuti a risolvere questo problema.
> E poi se non chiedo troppo come faccio a fare spuntare solo 2 cifre dopo
la
> virgola? Per i centsimi?
> Certe volte mi spuntano cifre anche con 4 cifre decimali.
> Questi 2 problemini mi stanno scoraggiando, spero mi aiutate
> Grazie in anticipo a tutti coloro mi daranno una mano
> Ciao e buona programmazione
>
>

La funzione Val converte i decimali solo se li rappresenti con il punto, se
usi la virgola credo che la prenda come separatore delle migliaia e quindi
la ignora.
Se vuoi convertire in Double ti consiglio di usare CDbl al posto di Val.
CDbl utilizza come separatore dei decimali e delle migliaia quelli impostati
nelle impostazioni internazionali del sistema operativo.

William.