Behold hele tallet

Det ville kræve at du laver en manuel addering ved at manipulere det enkelte ciffer direkte.

Det nemmeste ville derfor nok være at sætte det passende antal 0'ere ind igen bagefter. Kan desværre ikke lige give noget kode, da jeg ikke kan ASP.

Hej pidgeot, tak for din kommentar.
Det er lige lykkedes mig at "Google" et brugbart eksempel.

string = AddLeadingZeros(number, totalLength)

function AddLeadingZeros(byval n, byval count)
    if len(n) >= count then
        addleadingzeros = n
        exit function
    end if

    dim c, s, i
    c = count - len(n)

    for i = 1 to c
        s = s & "0"
    next
    s = s & cstr(n)

    AddLeadingZeros = s
end function


Læs mere her: http://www.aspemporium.com/codelib.aspx?pid=121&cid=11

Hvis man føler sig inspireret af de indbyggede funktioner, kan den funktion godt skrives lidt kortere

Function AddLeadingZeros(byval n, byval count)
    Dim s
    s = Right(String(count, "0") & n, count)
    AddLeadingZeros = s
End Function