Convertir el formato de fecha estándar en letras

Macro VBA que convierte el formato de fecha estándar en letras utilizando la estructura For Next

El presente algoritmo tiene por objetivo convertir una fecha que se encuentra en formato DD/MM/YYYY a texto con la finalidad de identificar cronológicamente con más precisión el día en letras el cual está incluido en el mes en letras y el año el letras. En ese sentido, se ha desarrollado en base a la estructura For Next, complementado con la función Mid, la cual permite extraer un grupo de caracteres de dos vectores que se han diseñado independientemente uno para los meses del año y el otro para los días de la semana. Así mismo se ha implementado un InputBox para solicitar el ingreso de la fecha con el formato DD/MM/YYYY de esta forma se captura el dato y a través de las funciones Right, Mid y Left se extraen los datos para ser procesados con las funciones previamente definidas en la estructura For Next y finalmente concatenados con un MsgBox, permitiendo visualizar al usuario el resultado de la fecha en letras. Es preciso señalar, que en la hoja Excel activa se ha insertado dos botones “CommandButton” que están enlazados a través de la función Call a dos procedimientos en este caso a la macro Fecha_En_Letras y Limpiar, de tal forma que permita una mejor interacción con el usuario. Este proyecto es útil cuando se implementa para generar fechas en gran volumen de documentos pertenecientes a una base de datos de forma automática.

Procedimiento:

• Abrir el archivo Excel VBA
• Pulsar el botón “Convertir Fecha      en Letras”
• Ingresar los datos de acuerdo al      formato solicitado
• Pulsar el botón “Aceptar”
• Se visualiza el resultado
• Pulsar el botón “Limpiar Celdas”      para dejar preparada la hoja Excel para la siguiente consulta.

Desarrollado por: Víctor Espichán Avila

Proyecto_002_EstructuraForNext_vcea

(Para mayor visualización de  la imagen, hacer click en la misma)