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.