Foro Excel

Este es mi Tercer AD-INN

Muchas veces tenemos campos de fechas en ingles, con formatos diversos tales como
dd-mm-yy, dd-mmm-dd, dd-mmm-yyyy, dd-mm-yy, yyyy-mmm-dd, yy-mm-aa, dd/mm/aa, dd.mm.yyyy, etc etc y etc. y nuestro sistema no es capaz de reconocerlos como fecha. Ademas a veces hay espacios vacios adelante de la fecha, otras veces atras, bueno en fin de todo, hasta mezclas ESPANGLISH tales como 10/August/2009.

Bueno la funcion TexDate, agarra cualquier texto que parezca Fecha y te lo devuelve al formato vigente de tu sistema (el que definiste en tu Windows en la seccion configuracion regional, ya sea con rayas, puntos , barras, etc)

SOLO DEBES INDICAR QUE VA PRIMERO EL AÑO O EL DÍA Y SI EL AÑO TIENE 2 O 4 DIGITOS Y NADA MAS!!

VALOR EN D3 funcion en la cel Comentario
13.Julio.2009 =texdate(D3;"d";4) Te devuelve 13-Jul-2009
81-04-09 =texdate(D3;"a";2) Te devuelve 09-Abr-1981 (no importa si hay espacios adelante)
2000/Jan/01 =textdate(D3;"y";4) Te devuelve 01-Ene-2000 (Puedes usar A ó Y para el año da lo mismo)

Aunque haya errores o simbolos no adecuados y en INGLES igual te retorna la fecha en el formato del sistema

14*August~09 =textdate(D3;"d";2) Te devuelve 14-Ago-2009 (la fecha empieza con dia y año de 2 dig)
14*August+09 =texdate(D3;"y";2) Te devuelve 09-Ago-2014 (la fecha empieza con año y año de 2 dig)

Inclusive te sirve para ver la serie equivalente de una fecha
81-04-09 =texdate(D3;"a";2)*1 Te devuelve la serie 29685


Y asi sigan probando combinaciones....

hola, el proyecto VBA tiene clave, si es aporte a la comunidad TODOS debemos ver el código.