[Resolvido] Adicionando zeros

[xanburzum 169]

A função AddLeadingZeros cria um número com um determinado comprimento, acrescentando zeros à frente do número até que o comprimento seja preenchido.

 

Por exemplo, se você quiser que AddLeadingZeros retorne um número de seis dígitos, o argumento totalLength seria seis e, depois, qualquer número que você digitou no primeiro argumento seria precedido por zeros até que foi de 6 caracteres.

 

Por exemplo, se você digitar um 1 como o número e 3 como o comprimento total,

AddLeadingZeros retornará "001". Se você entra 1234 como o número e

3 como o comprimento total, "1234" será devolvido.

 

sintaxe:

string = AddLeadingZeros(number, totalLength)

example:

 

dim displayNum

displayNum = AddLeadingZeros(1234, 6)

'displayNum = 001234

código:

 

<%
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
%>