Skip to content

Separar parte entera y parte decimal

January 31, 2013

‘ Esbrinar posició de la coma decimal

posicio = InStr(qttBossa, ",")

‘ Desar la part Entera (esquerra de la coma)

qttEntera = Microsoft.VisualBasic.Left(qttBossa, posicio - 1)

‘ Desar la part Decimal (dreta de la coma)

qttDecimal = Microsoft.VisualBasic.Right(qttBossa, Len(qttBossa) - posicio)

‘ Omplir amb zeros a l’esquerra la part entera fins a tenir una xifra de 3 digits

qttEntera = qttEntera.PadLeft(3, "0"c)

‘ Omplir amb zeros a la dreta la part decimal fins a tenir una xifra de 3 dígits

qttDecimal = qttDecimal.PadRight(3, "0"c)

‘ Concatenar la part entera amb la part decimal per obtenir la xifra de 6 dígits desitjada

qttBossaFormatat = qttEntera & qttDecimal

Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: