Capire come formattare una data può essere una sfida se non si ha familiarità con la funzione Format in Visual Basic, Applications, o VBA. Utilizzare la funzione Format per formattare qualsiasi data a un diverso formato della data, come ad esempio un formato militare. La data militare è comunemente annotato per la visualizzazione di un numero di giorni a due cifre, le prime tre lettere del mese e un anno a due cifre. Si possono trovare questa funzione utile, soprattutto se è necessario convertire molte date a date militari in un database di Access.

istruzione

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

2 Digitare la seguente per creare una nuova procedura di VBA:

Private Sub convertToMilitaryDate ()

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 militari formattato:

Dim todaysDate As Date

Dim militaryDate As String

4 Digitare la seguente per ottenere la data odierna con la funzione "Now ()":

todaysDate = Now()

5 Digitare la seguente per formattare la data di oggi in un formato di data militare:

militaryDate = Format(todaysDate, "Medium Date")

6 Digitare la seguente per sostituire i trattini con uno spazio:

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

7 Digitare quanto segue per visualizzare la stringa finale data militare attraverso una finestra di messaggio:

MsgBox (militaryDate)

8 Digitare quanto segue per terminare la procedura e visualizzare eventuali errori attraverso una finestra di messaggio:

Exit_convertToMilitaryDate:

Exit Sub

Err_convertToMilitaryDate:

MsgBox Err.Description

Riprendi Exit_convertToMilitaryDate:

End Sub

Premere il tasto "F5" per eseguire la procedura.