Uitzoeken hoe je een date formatteren kan een uitdaging zijn als je niet bekend bent met de functie Format in Visual Basic for Applications , of VBA bent . Gebruik de functie Format om elke date formatteren naar een andere datumnotatie , zoals een militaire formaat . De militaire datum is vaak geannoteerd door het weergeven van een twee - cijferig dagnummer , de eerste drie letters van de maand en een jaar van twee cijfers . U kunt deze functie nuttig , vooral als je nodig hebt om veel data te converteren naar militaire data in een Access-database . Instructies
1 Start " Access ", klik op " Lege database " en klik vervolgens op "Create . " Selecteer het menu " Hulpmiddelen voor databases " , en klik op ' Visual Basic . " Selecteer in het menu "Invoegen " , klik op "Module " om een nieuwe code -module plaatsen
Type 2 het volgende om een nieuwe VBA-procedure te maken: . Private Sub convertToMilitaryDate ( ) op Twitter
On Error GoTo Err_convertToMilitaryDate :
Type 3 de volgende twee variabelen te maken , een om de datum van vandaag en de andere ingedrukt om de opgemaakte militaire date te houden : < br Dim todaysDate > Als date Dim militaryDate
als Koord
Type 4 het volgende om de datum van vandaag met behulp van de " Now ( ) " functie krijgen :
todaysDate = Now ( )
5 Typ het volgende opmaken datum van vandaag in een militaire datumnotatie : militaryDate
= format ( todaysDate , " Medium Datum " ) op Twitter < br > Type 6 het volgende aan de streepjes vervangen door een spatie : militaryDate
= Vervang ( militaryDate , " - " , " " ) op Twitter Type 7 de volgende weer te geven de laatste militaire datumtekenreeks via een message box : MsgBox ( militaryDate )
Type
8 het volgende om de procedure te beëindigen en eventuele fouten weer te geven door middel van een bericht :
Exit_convertToMilitaryDate : Exit
Sub Err_convertToMilitaryDate
: MsgBox Err.Description
Resume Exit_convertToMilitaryDate : End Sub
Druk op " F5 " om de procedure uit te voeren.
|
