Averiguar cómo dar formato a una fecha puede ser un desafío si usted no está familiarizado con la función Format de Visual Basic para Aplicaciones o VBA. Utilice la función Format para dar formato a cualquier fecha a un formato de fecha diferente, como un formato militar. La fecha militar es comúnmente anotado por mostrar un número de día de dos dígitos , las tres primeras letras del mes y un año de dos dígitos . Usted puede encontrar esta función útil, especialmente si usted necesita para convertir muchas fechas para las fechas de militares en una base de datos . Instrucciones
1

Inicio " acceso ", haga clic en "Base de datos en blanco ", y luego haga clic en " Crear". Seleccione el menú " Herramientas de base de datos " y haga clic en "Visual Basic ". Seleccione el menú "Insertar " y luego haga clic en " módulos" para insertar un nuevo módulo de código
2

Escriba lo siguiente para crear un nuevo procedimiento de VBA: .

ConvertToMilitaryDate Sub Private ()

On Error GoTo Err_convertToMilitaryDate :
3

Escriba el siguiente para crear dos variables , una para sostener la fecha de hoy y la otra para mantener la fecha militar formato : < br >

TodaysDate dévil como fecha

militaryDate dévil como secuencia
4

Escriba lo siguiente para obtener la fecha de hoy con el " ahora ( ) " función :

TodaysDate = Now ( )
5

Escriba el siguiente formato de fecha de hoy en un formato de fecha militar :

militaryDate = Format ( TodaysDate , "Medium Date" )
< br > 6

Escriba lo siguiente para reemplazar los guiones por un espacio:

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

Escriba lo siguiente para mostrar la cadena final 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 :
< p> Exit_convertToMilitaryDate :

Exit Sub

Err_convertToMilitaryDate :

MsgBox Err.Description

Reanudar Exit_convertToMilitaryDate :

End Sub

Press "F5 " para ejecutar el procedimiento .