Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Como poner ceros delante de un numero? (https://www.clubdelphi.com/foros/showthread.php?t=25593)

juliopag1 27-09-2005 21:43:56

Como poner ceros delante de un numero?
 
Tengo una duda tengo que hacer una matricula pero son dos campos distintos
ej:

20050098

El 2005 lo estraigo del sistema y el 0098 es generado, luego hago un cast y los pongo juntos pero el problema es el 0098, que me sale 98 claro esta como poner los 00 adelante.

Gracias.

marcoszorrilla 27-09-2005 22:17:55

Pues va a depender de que tipo de campo estés utilizando si es texto, puedes hacerlo con:
FormatFloat('0000',MiNumero);

Si es numérico y tal como lo planteas en tu ejemplo:
año * 1000 + 98

Claro utilizando tus variables....

Un Saludo.

juliopag1 27-09-2005 22:25:25

El problema es que con Interbase que quiero hacerlo no Delphi
 
El problema es que con Interbase que quiero hacerlo no Delphi

marcoszorrilla 27-09-2005 22:27:03

Pues el segundo planteamiento te funcionará con interbase, extraes el año lo multiplicas por 10000 y luego le sumas el otro número que no sé de donde lo obtienes, y no hay más problema.

Un Saludo.

cahp 28-09-2005 01:11:06

Código SQL [-]
Concatenacion =  :ANO || LPAD(CAST(:AUX AS VARCHAR(4)),0,4);

LPAD, es una udf.


saludos.


La franja horaria es GMT +2. Ahora son las 12:59:47.

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