Capire come formattare una data può essere una sfida se non si ha familiarità con la funzione Format in Visual Basic, Applications Edition , o VBA . Utilizzare la funzione Format per formattare una data in un formato di data diversa , come ad esempio un formato militare . La data di militare è comunemente annotato , visualizzando un numero di giorno a due cifre , le prime tre lettere del mese e un anno a due cifre . Potete trovare questa funzione utile, soprattutto se avete bisogno di convertire molti date per le date militari in un database di Access . Istruzioni
1

Start " di accesso ", fare clic su " Database vuoto " e quindi fare clic su "Crea ". Selezionare il menu " Strumenti di database " , quindi su " Visual Basic ". Selezionare il menu "Inserisci" , quindi fare clic su "Modulo" per inserire un nuovo modulo di codice
2

Digitare quanto segue per creare una nuova procedura VBA : .

ConvertToMilitaryDate Private Sub ( )

On Error GoTo Err_convertToMilitaryDate :
3

digitare quanto segue per creare due variabili , una per tenere la data odierna e l'altro per tenere la data formattata militare : < br >

Dim TodaysDate As Date Dim

militaryDate As String
4

Digitare quanto segue per ottenere la data odierna con la funzione " Now ( ) " :

TodaysDate = Now ( ) economici 5

Digitare il seguente formato per la data odierna in un formato di data militare :

militaryDate = Format ( TodaysDate , " data breve " ) per < br > 6

digitare quanto segue per sostituire i trattini con uno spazio :

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

Digitare il seguente per visualizzare la stringa finale militare data attraverso una finestra di messaggio :

MsgBox ( militaryDate ) economici 8

digitare quanto segue per terminare la procedura e visualizzare gli eventuali errori attraverso una finestra di messaggio :
< p> Exit_convertToMilitaryDate :

Exit Sub