Finne ut hvordan å formatere en dato kan være en utfordring hvis du ikke er kjent med Format-funksjonen i Visual Basic for Applications , eller VBA. Bruk Format-funksjonen til å formatere en dato til en annen dato format , for eksempel en militær format . Den militære dato er ofte kommentert ved å vise et tosifret dag nummer , de tre første bokstavene i måneden og et tosifret år . Du kan finne denne funksjonen nyttig, spesielt hvis du trenger å konvertere mange datoer til militære datoer i en Access database. Instruksjoner
en

Start " Tilgang , " klikk "Blank Database " og deretter "Create ". Velg " Database Verktøy"-menyen , og klikk deretter på " Visual Basic. " Velg " Insert" -menyen , klikk deretter på " Module" for å sette inn en ny kode modul
2

Skriv inn følgende for å opprette en ny VBA prosedyre : .

Private Sub convertToMilitaryDate ( )

On Error GoTo Err_convertToMilitaryDate :
3

Skriv inn følgende for å opprette to variabler , en til å holde dagens dato og den andre for å holde den formaterte militære dato :

Dim todaysDate Som Date

Dim militaryDate As String
4

Skriv inn følgende for å få dagens dato ved hjelp av " Now () "-funksjonen : en

todaysDate = Now ()
5

Skriv inn følgende til format dagens dato til en militær date format : en

militaryDate = format ( todaysDate , "Medium Date" )

6

Skriv inn følgende for å erstatte bindestrek med mellomrom : en

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

Skriv inn følgende for å vise den endelige militære datostreng gjennom en meldingsboks : en

MsgBox ( militaryDate )
8

Skriv inn følgende for å avslutte prosedyren og vise eventuelle feil gjennom en meldingsboks :
< p> Exit_convertToMilitaryDate : en

Exit Sub

Err_convertToMilitaryDate : en

MsgBox err.Description

Resume Exit_convertToMilitaryDate : en

End Sub

Trykk " F5 " for å kjøre prosedyren.