Agregar ceros a la izquierda de un consecutivo
hola,
tengo un campo consecutivo 1 2 3 ... necesito rellenarlos asi 000008 000009 000010 000011 ... |
Justo abajo, al final de esta página encontrarás algunos enlaces de usuarios que preguntaron lo mismo, échale un vistazo, seguro que encuentras lo que necesitas.
|
Un apunte como aporte (vaya, casi salio verso). Recordemos que agregar ceros a la izquierda solo sirve para visualización ya que el valor numérico permanece invariable. Hay quien prefiere guardar el dato con todo y los ceros como en un campo tipo varchar o char pero entonces tenemos el detalle de que para poder hacer cualquier cálculo con ese dato hay que hacer una conversión a número. Yo recomiendo guardar el valor como entero y únicamente para efectos de visualización utilizar una mascarilla ya sea con la función format o bien con alguna función propia.
Si lo haces con format puede ser así: Donde sustituimos Longitud por la el número de cifras que queremos tener y valor por el entero que queremos rellenar. |
Cita:
|
Hola, otra más para la diversidad...
Código:
function CerosAIzquierda(ANum, Cant: Integer): string; |
Tarde veo, que look conoce esa función que yo nunca recuerdo ... :)
|
Cita:
saludos! |
La franja horaria es GMT +2. Ahora son las 10:27:58. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi