Tema: Formatear número
Ver Mensaje Individual
  #6 (permalink)  
Antiguo 18/12/2005, 13:48
monkyta
 
Fecha de Ingreso: noviembre-2005
Mensajes: 658
Antigüedad: 21 años
Puntos: 3
Prueba esto

dim dato1
if len(var) < 6 then
anio=mid(var,2,4)
mes = mid(var,1,1)
else
anio=mid(var,3,4)
mes = mid(var,1,2)
end if
dato1=mes & "/" & anio