18/12/2005, 13:48
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 658
Antigüedad: 19 años, 6 meses 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 |