URJOSE, DAZUAGA, Por Favor, esto es simple para ud

laweb · #1 (**permalink**) 07/08/2002, 17:13

Parte de mi anterior problema ya lo resolvi...
Me quedó esta parte sin resolver:

Recibo un FORM INPUT con MAX CHAR = 2
Este campo se llama = año
Lo ideal sería recibir 02, como valor (año 2002) y mejor aun 00 como año 2000.

en el form, al recuperar, puedo llegar a recibir:

00, 01, o 02.... Cada cual como año 2000,2001 y 2002 resp.
Tambien puedo rcibir (muy posible) un valor como 0, 1, o 2.

Quiero convertir esto en Numeros o mejor dicho una variable numerica fija como ser:

AÑO = 02 o bien
AÑO = 00

( pues asi está en la BD que me paso el Cliente, como 15/04/00 )

Probé con esto :::

if LEN(año) < 2 then
Formatnumber(año,0,-1)
( el -º es condicion valida del TRISTATE pero no me asegura la cantidad de ceros, habria que...mmm. no me gusta

if LEN (año) < 2 then
AÑO= 0 & AÑO
Concatenando ??????

Soy medio animalito, que se yo...
Alguna idea o sugerencia les agradeceré

Saludos

LAWEB

Aston · #2 (**permalink**) 07/08/2002, 18:22

Hola amigo, mira esta función tan maja:

Código:

'___________________________________________
Function Formato(nNum, nLong)
'El Format de toda la vida con longitud de cadena
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  Formato = String(nLong - Len(CStr(nNum)), &quot;0&quot;) &amp; CStr(nNum)
End Function

Ejemplo:

Formato(18, 5) 'Devuelve 00018
Formato(15, 3) 'Devuelve 015

Espero que te sirva, creo que es lo que necesitas...

Un saludo.

laweb · #3 (**permalink**) 07/08/2002, 20:18

Gracias Amigo _!
De maravillas

Te saluda

LAWEB