Impostare un numero con migliaia e decimali

domenica 11 novembre 2007 - 15.59

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

fonzinieto Profilo | Newbie

9 messaggi | Data Invio: dom 11 nov 2007 - 15:59

Ciao a tutti,

non riesco a risolvere questo problema ...

voglio mandare in stampa su un foglio word un valore in un dataset es: 1.500,43, quando vado a vedere il dato sul foglo word trovo 1500,43 perde la divisione delle migliaia.

Ho provato anche a far passare il valore in una variabile stringa e cercare di formattare con l' istruzione c

hh = String.Format("{0:###,###.##}", myrow("importo") ma niente

anche con l' istruzione hh = Format(Val(myrow("importo")), "#,###.00") nulla

Mi riuscite a dare una mano ..... grazie in anticipo

Caly82 Profilo | Newbie

18 messaggi | Data Invio: mar 13 nov 2007 - 09:01

>Ciao a tutti,
>
>non riesco a risolvere questo problema ...
>
>voglio mandare in stampa su un foglio word un valore in un dataset
>es: 1.500,43, quando vado a vedere il dato sul foglo word trovo
>1500,43 perde la divisione delle migliaia.
>
>Ho provato anche a far passare il valore in una variabile stringa
>e cercare di formattare con l' istruzione c
>
>hh = String.Format("{0:###,###.##}", myrow("importo") ma niente
>
>anche con l' istruzione hh = Format(Val(myrow("importo")), "#,###.00")
>nulla
>
>Mi riuscite a dare una mano ..... grazie in anticipo
>
>
>
Ciao, prova così:
Dim conv As Double = myrow("importo")
Dim hh as Double = Format(conv , "#,##0.00;;0")

Fammi sapere...ciao ciao!

fonzinieto Profilo | Newbie

9 messaggi | Data Invio: mar 13 nov 2007 - 11:27

ho inserito quanto mi hai detto ma non funziona

Dim conv As Double = myrow("imppar")
Dim hh As Double = Format(conv, "#,##0.00;;0")

objword.ActiveDocument.Bookmarks.Item(wunit).Select()
objword.Selection.Text = hh 'yxcc ' myrow("imppar")

Dim conv2 As Double = myrow("importo")
Dim hh2 As Double = Format(conv, "#,##0.00;;0")

objword.ActiveDocument.Bookmarks.Item(wcomp).Select()
objword.Selection.Text = hh2 'myrow("importo")

mi restituisce sul foglio word

Q.ta Unitario Complessivo

1 1234,88 1234,88

Caly82 Profilo | Newbie

18 messaggi | Data Invio: mar 13 nov 2007 - 11:56

Scusa, ho sbagliato io...
io ho provato e funziona, scivi così:

Dim conv As Double = myrow("imppar")
Dim hh As String = Format(conv, "#,##0.00;;0")

Fammi sapere...ciao ciao!

fonzinieto Profilo | Newbie

9 messaggi | Data Invio: mar 13 nov 2007 - 13:37

ho trovato su internet quanto segue ....e funziona sono riuscito a compilare il modulo della fattura correttamente

grazie per l' aiuto a Caly82
Ciao a tutti

Dim stot As String
stot = String.Format("{0:N}", wtotale)

objword.ActiveDocument.Bookmarks.Item("imponibile").Select()
objword.Selection.Text = stot 'wtotale

fonzinieto Profilo | Newbie

9 messaggi | Data Invio: mar 13 nov 2007 - 13:44

comunque per premiare la disponibilità di Caly82, ho provato con il suo suggerimento e funziona
correttamente

Dim conv As Double = myrow("imppar")
Dim hh As String = Format(conv, "#,##0.00;;0")

'Dim ss As String
' ss = String.Format("{0:N}", myrow("imppar"))

objword.ActiveDocument.Bookmarks.Item(wunit).Select()
objword.Selection.Text = hh ' myrow("imppar")

bravo a Caly82

Grazie ancora
Ciao

Caly82 Profilo | Newbie

18 messaggi | Data Invio: mar 13 nov 2007 - 13:54

Figurati, allora visto ke funziona mi accetti la risposta?!

Grazie...ciao ciao!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !