Descobrir como formatar uma data pode ser um desafio se você não estiver familiarizado com a função Format em Visual Basic for Applications, ou VBA. Use a função Format para formatar qualquer data para um formato de data diferente, como um formato militar. A data de militar é comumente anotadas exibindo um número do dia de dois dígitos , as três primeiras letras do mês e um ano de dois dígitos. Você pode encontrar esta função útil, especialmente se você precisa converter muitas datas para datas militares em um banco de dados Access. Instruções
1

Comece "Acesso ", clique em "Banco de Dados em Branco " e clique em " Criar". Selecione o menu "Banco de Dados Tools" e clique em "Visual Basic". . Selecione o menu " Inserir", clique em "Módulo " para inserir um novo módulo de código
2

Digite o seguinte para criar um novo procedimento VBA:

Sub convertToMilitaryDate Privado ( )

On Error GoTo Err_convertToMilitaryDate :
3

Digite o seguinte para criar duas variáveis, uma para segurar a data de hoje eo outro para manter a data formatada militar : < br >

Dim TodaysDate as Date

Dim militaryDate as String
4

Digite o seguinte para obter a data de hoje com a função de " Now () " :

TodaysDate = Now ()
5

Digite o seguinte para formatar a data de hoje em um formato de data militar :

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

Digite o seguinte para substituir os hífens , com um espaço :

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

Digite o seguinte para exibir a seqüência de data militar final através de uma caixa de mensagem :

MsgBox ( militaryDate )
8

Digite o seguinte para terminar o procedimento e exibir quaisquer erros através de uma caixa de mensagem:

Exit_convertToMilitaryDate :

Exit Sub

Err_convertToMilitaryDate :

MsgBox Err.Description

Retomar Exit_convertToMilitaryDate :

End Sub

Pressione " F5" para executar o procedimento .