Räkna ut hur du formaterar ett datum kan vara en utmaning om du är obekant med funktionen Format i Visual Basic for Applications , eller VBA . Använd funktionen Format för att formatera något datum till ett annat datum format , såsom ett militärt format . Den militära datum är vanligen kommenterad genom att visa en tvåsiffrig dag nummer , de tre första bokstäverna i månaden och ett tvåsiffrigt årtal . Du kan hitta denna funktion användbar , särskilt om du behöver konvertera många datum att militära datum på en Access-databas . Instruktioner
1
Start " Tillgång , " klick " Tom databas " och klicka sedan på " Skapa ". Välj " Database Tools " -menyn , och klicka sedan på " Visual Basic . " Välj " Infoga " -menyn , klicka sedan på " modul " för att infoga en ny kodmodul
2
Skriv följande för att skapa ett nytt VBA procedur : .
Private Sub convertToMilitaryDate ( )
On Error GoTo Err_convertToMilitaryDate : Addera 3
Skriv följande för att skapa två variabler , en för att hålla dagens datum och den andra för att hålla formaterade militära datum :
Dim todaysDate som Datum
Dim militaryDate As String
4
Skriv följande för att få dagens datum med " nu ( ) " -funktion :
todaysDate = nu ( )
5
Skriv följande till format dagens datum i en militär datumformat :
militaryDate = format ( todaysDate , " Medium Date " ) katalog
6
Skriv följande för att ersätta bindestreck med ett blanksteg :
militaryDate = Ersätt ( militaryDate , " - " , " " )
7
Skriv följande för att visa den sista militära datumsträng genom en meddelanderuta :
MsgBox ( militaryDate )
8
Skriv följande för att avsluta förfarandet och visa fel genom en meddelanderuta :
Exit_convertToMilitaryDate :
Exit Sub
Err_convertToMilitaryDate :
MsgBox Err.Description
Resume Exit_convertToMilitaryDate :
End Sub
Tryck " F5 " för att köra proceduren .