Comprendre comment formater une date peut être un défi si vous n'êtes pas familier avec la fonction Format dans Visual Basic pour Applications, ou VBA. Utilisez la fonction Format pour formater une date pour un format de date différent, comme un format militaire. La date de militaire est souvent commentée en affichant un nombre de jour à deux chiffres , les trois premières lettres du mois et d'une année à deux chiffres . Vous pouvez trouver cette fonction utile , surtout si vous avez besoin de convertir de nombreuses dates en dates militaires dans une base de données Access. Instructions
1
Start " Accès ", cliquez sur " Base de données vide " puis cliquez sur " Créer". Sélectionnez le menu " Base de données Outils" , puis cliquez sur " Visual Basic ". Sélectionnez le menu " Insertion", puis cliquez sur "Module" pour insérer un nouveau module de code
2
Tapez la commande suivante pour créer une nouvelle procédure VBA: .
ConvertToMilitaryDate Private Sub () Photos
on Error GoTo Err_convertToMilitaryDate :
3
Tapez la commande suivante pour créer deux variables , une pour tenir la date du jour et l'autre pour tenir la date militaires formaté : < br >
TodaysDate As date
militaryDate Dim As String
4
Tapez la commande suivante pour obtenir la date d'aujourd'hui en utilisant le " Now () " fonction :
TodaysDate = maintenant ()
5
Tapez la commande suivante au format de la date du jour dans un format de date militaire :
militaryDate = Format ( TodaysDate , " Medium Date »)
< br > 6
Tapez la commande suivante pour remplacer les tirets avec un espace:
militaryDate = Replace ( militaryDate , "-" , "")
7 Type de
la suivante pour afficher la chaîne finale militaire de la date dans une boîte de message :
MsgBox ( militaryDate )
8
Tapez la commande suivante pour mettre fin à la procédure et d'afficher les erreurs grâce à une boîte de message :
< p> Exit_convertToMilitaryDate :
Exit Sub
Err_convertToMilitaryDate :
MsgBox Err.Description
CV Exit_convertToMilitaryDate :
End Sub
Appuyez sur " F5" pour exécuter la procédure .
