FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Agregar ceros a la izquierda de un consecutivo
hola,
tengo un campo consecutivo 1 2 3 ... necesito rellenarlos asi 000008 000009 000010 000011 ...
__________________
Enseñar es la virtud de un sabio. |
#2
|
||||
|
||||
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.
|
#3
|
||||
|
||||
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.
__________________
AKA "El animalito" ||Cordobés a mucha honra|| |
#4
|
||||
|
||||
Cita:
__________________
all your base are belong to us |
#5
|
||||
|
||||
Hola, otra más para la diversidad...
Código:
function CerosAIzquierda(ANum, Cant: Integer): string; var Ceros: array[1..100] of char; begin FillChar(Ceros, SizeOf(Ceros), '0'); Result:= Copy(Ceros, 1 ,Cant - Length(IntToStr(ANum))) + IntToStr(ANum); end;
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 06-07-2010 a las 20:39:41. |
#6
|
||||
|
||||
Tarde veo, que look conoce esa función que yo nunca recuerdo ...
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 06-07-2010 a las 20:44:25. |
#7
|
||||
|
||||
jeje , yo la agregue a mis plantillas del delphi :P
saludos!
__________________
all your base are belong to us |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Consecutivo con While | Camilo | Conexión con bases de datos | 2 | 02-12-2007 22:44:08 |
Agregar Ceros a la Izquierda en Firebird 1.5.x | mantrax | Firebird e Interbase | 2 | 06-10-2007 19:24:35 |
Llenar con ceros a la izquierda una variable string | egostar | .NET | 9 | 22-08-2007 08:57:19 |
José Saramago:la izquierda ha dejado de ser izquierda | marcoszorrilla | La Taberna | 3 | 15-06-2007 19:02:49 |
Agregar ceros al pincipio de folio | jorelivi | Varios | 14 | 10-05-2007 17:53:46 |
|