Quitar coma decimal y rellenar con ceros a la izquierda

[rajim]

Hola, foro:

Alguien sabe cómo quitar la coma decimal a un dato numérico y luego añadirle tantos ceros a la izquierda como espacios tenga el campo?

Por ejemplo:

El campo numérico tiene 10 caracteres

Dato a convertir = 22,45

El resultado tiene que ser= 0000002245

He estado buscando por muchos foros de ASP, pero no he encontrado ninguna función ni ejemplo para lo que necesito.

Saludos y gracias

[tammander]

Código:

function miformato(num, caract)
    dim strNum, numCaract
    strNum = CStr(num)
    if isNumeric(num) then
          strNum = replace(strNum,",","")
          ' Me curo en salud con los dos posibles formatos :P
          strNum = replace(strNum,".","")
          numCaract = caract
          if not isNumeric(caract) then numCaract = 10
          if len(strNum) < numCaract then  strNum = String((numCaract-len(strNum)), "0") & strNum
    end if
    miformato = strNum
end function

USO:

response.Write("mi formato da " & miformato(23.45,10))


No lo he probado. Espero que funcione :P


Un saludo

[rajim]

Muchas gracias, Tammander, sí que funciona.

Saludos