Averiguar cómo dar formato a una fecha puede ser un desafío Si usted está familiarizado con la función de formato en Visual Basic para aplicaciones o VBA. Utilice la función Format para formatear cualquier fecha a un formato de fecha diferente, como un formato militar. Comúnmente se anota la fecha militar mostrando un número de dos dígitos día, las tres primeras letras del mes y un año de dos dígitos. Encontrará esta función útil, especialmente si usted necesita convertir muchas fechas fechas militares en una base de datos de Access.

Instrucciones

1 Empezar a "Acceso", haga clic en "Base de datos en blanco" y haga clic en "Crear." Seleccione el menú "Herramientas" y haga clic en "Visual Basic". Seleccione el menú "Insertar", luego haga clic en "Módulo" para insertar un nuevo módulo de código.

2 Escriba lo siguiente para crear un nuevo procedimiento VBA:

Private Sub convertToMilitaryDate()

En Error GoTo Err_convertToMilitaryDate:

3 Escriba lo siguiente para crear dos variables, una para celebrar el día de hoy y el otro para celebrar la fecha con formato militar:

Dim todaysDate As Date

Dim militaryDate As String4

Escriba lo siguiente para obtener la fecha actual usando la función "Now()":

todaysDate = Now()5

Escriba lo siguiente para formatear la fecha actual en un formato de fecha militar:

militaryDate = Format(todaysDate, "Medium Date")6

Escriba lo siguiente para reemplazar los guiones por un espacio:

militaryDate = Replace(militaryDate, "-", " ")7

Escriba lo siguiente para mostrar la cadena militar fecha a través de un cuadro de mensaje:

MsgBox (militaryDate)8

Escriba lo siguiente para finalizar el procedimiento y mostrar los errores a través de un cuadro de mensaje:

Exit_convertToMilitaryDate:

Exit Sub

Err_convertToMilitaryDate:

MsgBox Err.Description

Resume Exit_convertToMilitaryDate:

End Sub

Presione "F5" para ejecutar el procedimiento.