Regne ud, hvordan du formaterer en dato kan være en udfordring, hvis du er fortrolig med funktionen Format i Visual Basic for Applications eller VBA. Brug funktionen Format til at formatere enhver dato til en anden dato format, såsom en militær format. Den militære date er almindeligt kommenteret ved at vise en tocifret dag nummer, de tre første bogstaver i måneden og et tocifret år. Du kan finde denne funktion nyttig , især hvis du har brug for at konvertere mange datoer til militære datoer i en Access-database . Instruktioner
1

Start " Access ", klik på " Tom database " og derefter klikke på "Opret ". Vælg " Database Tools " i menuen, og derefter klikke på "Visual Basic ". Vælg " Indsæt" menuen og klik på " Modul " for at indsætte en ny kode modul
2

Skriv følgende for at oprette en ny VBA procedure : .

Private Sub convertToMilitaryDate ()

On Error GoTo Err_convertToMilitaryDate :
3

Skriv følgende for at oprette to variabler , en til at holde dags dato og den anden til at holde den formaterede militære dato : < br >

Dim todaysDate Som dato

Dim militaryDate As String
4

Skriv følgende for at få dags dato ved hjælp af " Now ( )" funktionen : Hej

todaysDate = Now ( )
5

Skriv følgende at formatere dags dato til en militær datoformat : Hej

militaryDate = Format ( todaysDate , " Medium " )
< br > 6.

Skriv følgende for at erstatte bindestreger med et mellemrum : Hej

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

Skriv følgende for at vise den sidste militære datostreng gennem en besked boks : Hej

MsgBox ( militaryDate )
8

Skriv følgende for at afslutte proceduren og vise eventuelle fejl gennem en besked boks : Hej < p> Exit_convertToMilitaryDate : Hej

Exit Sub

Err_convertToMilitaryDate : Hej

MsgBox Err.Description

Genoptag Exit_convertToMilitaryDate : Hej

End Sub

Tryk på " F5 " for at køre proceduren.