Tenho um campo no banco de dados no formato moeda e estou transferindo para um arquivo texto, mas estou com o seguinte problema ao exportar:

 

Exemplo1: R$ 120,00 = 120

Exemplo2: R$ 120,33 = 12033

 

O exemplo 2 está correto, mas o exemplo um falta os dois zeros no final, alguém sabe como fazer?

 

Obs. Estou usando a função format, pois os numero ainda tem que conter zeros à esquerda. Como "00012033"

 

 

                         Obrigado

 

 

Não sei se é o caminho mais curto, mas funciona:

 

Dim a As String
Dim b As Currency
Dim c As Currency
Dim d As Currency
b = 120.15
c = Int(b)
d = b - Int(b)
If d = 0 Then
  a = Format(b, "000000") & "00"
Else
  If d > 0.1 Then
    a = Format(c, "000000") & Right(CStr(d), 2)
  Else
    a = Format(b, "000000") & Right(CStr(d), 1) & "0"
  End If
End If

Jayme