Função para preenchimento de zeros à esquerda

' Função que retorna zeros a esquerda no
' formato do velho Clipper
' (val) é o valor de referencia
' (num) é o numero de digitos que será gerado.

Function Strzero(val,num)
 val = Trim(CStr(val))
 Strzero = String(num-len(val),"0") & val
End Function

Esta matéria foi postada originalmente no ASP4Developers por Adriano Dias (site), que na época era "Gerente de Informática que odeia terno e gravata e que gosta mesmo é de análise e programação. Linuxeiro sem ser radical e ASPeiro por prazer.". Hoje, vai saber...