Slik konverterer datoer for å Militære datoer i Access 2007 VBA

Å finne ut hvordan du formaterer en date kan være en utfordring hvis du ikke er kjent med den Format-funksjonen i Visual Basic for Applications, eller VBA. Bruk Format-funksjonen til å formatere noen 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.

Bruksanvisning

1 Begynn "Access," klikk "Blank Database" og deretter "Opprett". Velg "Database Verktøy" -menyen, og klikk deretter på "Visual Basic." Velg "Insert" -menyen, klikk på "Module" å sette inn en ny kode modul.

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

Private Sub convertToMilitaryDate ()

På Error GoTo Err_convertToMilitaryDate:

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

Dim todaysDate As Date

Dim militaryDate As String

4 Skriv inn følgende for å få dagens dato ved hjelp av "Now ()" funksjon:

todaysDate = Now()

5 Skriv inn følgende å formatere dagens dato til en militær datoformat:

militaryDate = Format(todaysDate, "Medium Date")

6 Skriv inn følgende for å erstatte bindestreker med et mellomrom:

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

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

MsgBox (militaryDate)

8 Skriv inn følgende for å avslutte prosedyren og vise eventuelle feil gjennom en meldingsboks:

Exit_convertToMilitaryDate:

Exit Sub

Err_convertToMilitaryDate:

MsgBox Err.Description

Gjenoppta Exit_convertToMilitaryDate:

End Sub

Trykk "F5" for å kjøre prosedyren.