Comment convertir les dates pour Dates militaires dans Access 2007 VBA

July 29

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 à un format différent de date, comme un format militaire. La date militaire est généralement annotée par l'affichage d'un numéro de jour à deux chiffres, les trois premières lettres du mois et une année à deux chiffres. Vous pouvez trouver cette fonction utile, surtout si vous avez besoin de convertir de nombreuses dates à dates militaires dans une base de données Access.

Instructions

1 Démarrer "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:

Private Sub convertToMilitaryDate ()

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 maintenir la date militaire formatée:

Dim todaysDate As Date

Dim militaryDate As String

4 Tapez la commande suivante pour obtenir la date d'aujourd'hui en utilisant la fonction "Now ()":

todaysDate = Now()

5 Tapez ce qui suit pour formater la date d'aujourd'hui dans un format de date militaire:

militaryDate = Format(todaysDate, "Medium Date")

6 Tapez ce qui suit pour remplacer les traits d'union avec un espace:

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

7 Tapez la commande suivante pour afficher la chaîne finale de date militaire par une boîte de message:

MsgBox (militaryDate)

8 Tapez la commande suivante pour mettre fin à la procédure et afficher des erreurs par le biais d'une boîte de message:

Exit_convertToMilitaryDate:

Exit Sub

Err_convertToMilitaryDate:

MsgBox Err.Description

Resume Exit_convertToMilitaryDate:

End Sub

Appuyez sur "F5" pour exécuter la procédure.


          

Post a comment: