Wie Konvertieren von Datumsangaben in militärischen Daten in Access 2007 VBA

May 17

Herauszufinden, wie man ein Datum formatieren kann eine Herausforderung sein, wenn Sie mit der Format-Funktion in Visual Basic für Anwendungen oder VBA nicht vertraut sind. Verwenden Sie die Format-Funktion, um jeden Zeitpunkt auf ein anderes Datum-Format, beispielsweise einem militärischen Format formatieren. Das militärische Datum wird häufig durch die Anzeige eine zweistellige Tageszahl, die ersten drei Buchstaben des Monats und eine zweistellige Jahresangabe versehen. Sie können diese Funktion nützlich, finden, vor allem, wenn Sie viele Termine zu militärischen Datumsangaben in einer Access-Datenbank konvertieren müssen.

Anweisungen

1 Starten Sie "Access", "Leere Datenbank" klicken und dann auf "Erstellen". Wählen Sie das Menü "Database Tools" und dann auf "Visual Basic." Wählen Sie im Menü "Einfügen" und dann auf "Module", um ein neues Codemodul einzufügen.

2 Geben Sie Folgendes ein, um eine neue VBA-Prozedur zu erstellen:

Private Sub convertToMilitaryDate()

On Error GoTo Err_convertToMilitaryDate:

3 Geben Sie Folgendes ein, um zwei Variablen, ein bis heute halten und das andere, das militärische formatierte Datum zu halten erstellen:

Dim todaysDate As Date

Dim militaryDate As String4

Geben Sie Folgendes ein, um das heutige Datum mit der Funktion "Now()" erhalten:

todaysDate = Now()5

Geben Sie Folgendes zum Formatieren von heute in einem militärischen Datumsformat:

militaryDate = Format(todaysDate, "Medium Date")6

Geben Sie Folgendes ein, um die Bindestriche durch einen Raum zu ersetzen:

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

Geben Sie Folgendes ein, um die endgültige militärische Datumszeichenfolge durch ein Meldungsfeld anzuzeigen:

MsgBox (militaryDate)8

Geben Sie Folgendes ein, um das Verfahren zu beenden und alle Fehler durch ein Meldungsfeld anzuzeigen:

Exit_convertToMilitaryDate:

Exit Sub

Err_convertToMilitaryDate:

MsgBox Err.Description

Resume Exit_convertToMilitaryDate:

EndSub

Mit "F5" um die Prozedur auszuführen.