Herauszufinden, wie man ein Datum formatieren kann eine Herausforderung sein , wenn Sie nicht mit dem Format-Funktion in Visual Basic für Applikationen oder VBA sind . Verwenden Sie die Format-Funktion , um ein beliebiges Datum auf ein anderes Datum -Format , wie eine militärische formatieren . Die militärische Datum ist häufig mit Anmerkungen versehen von Anzeigen eines zweistelligen Tag -Nummer, die ersten drei Buchstaben des Monats und eine zweistellige Jahreszahl . Sie können diese Funktion nützlich, vor allem , wenn Sie viele Daten, um militärische Daten in einer Access-Datenbank konvertieren müssen . Anleitung
1

Start " Access", klicken Sie auf " Leere Datenbank " und klicken Sie dann auf " Erstellen". Wählen Sie den " Database Tools "-Menü , und klicken Sie dann auf " Visual Basic ". Wählen Sie das Menü "Einfügen" und dann auf "Module" , um einen neuen Code-Modul einfügen
2

Geben Sie den folgenden , um eine neue VBA-Prozedur zu erstellen : .

Private Sub convertToMilitaryDate ()

On Error GoTo Err_convertToMilitaryDate :
3

Geben Sie den folgenden zwei Variablen zu erstellen , eine auf das heutige Datum und die andere halten, um das formatierte Datum militärischen halten :

Dim TodaysDate As Date Dim

militaryDate As String
4

Geben Sie den folgenden auf das heutige Datum mit dem " Now () "-Funktion zu erhalten:

TodaysDate = Now ()
5

Geben Sie den folgenden Format um das heutige Datum in eine militärische Datumsformat :

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

Geben Sie den folgenden , um die Bindestriche mit einem Leerzeichen ersetzen :

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

Geben Sie den folgenden angezeigt die endgültige militärische Datumszeichenfolge durch eine Message-Box :

MsgBox ( militaryDate )
8

Geben Sie den folgenden , um den Vorgang zu beenden und Fehler durch eine Message-Box :
< p> Exit_convertToMilitaryDate :

Exit Sub

Err_convertToMilitaryDate :

MsgBox Err.Description

Lebenslauf Exit_convertToMilitaryDate :

End Sub