La fonction `DateSerial` dans VBA est utilisée pour générer une date en spécifiant l’année, le mois et le jour en tant qu’arguments individuels. Voici comment vous pouvez l’utiliser :
Syntaxe
DateSerial(année, mois, jour)
- année : Un entier représentant l’année. Vous pouvez spécifier l’année entre 100 et 9999.
- mois : Un entier représentant le mois. Vous pouvez utiliser des valeurs négatives, 0 ou supérieures à 12 pour ajuster les années.
- jour : Un entier représentant le jour. Vous pouvez également utiliser des valeurs négatives ou supérieures au nombre total de jours dans le mois pour ajuster le mois ou l’année.
Exemples d’utilisation
Sub ExempleDateSerial()
Dim maDate As Date
maDate = DateSerial(2023, 10, 21)
MsgBox "La date est : " & maDate
End Sub
- Exemple de base :
Cela affichera une boîte de message avec la date “21/10/2023”.
Sub AjustementMois()
Dim maDate As Date
maDate = DateSerial(2023, 13, 5) ' Cela représente le 5 janvier 2024
MsgBox "Nouvelle date : " & maDate
End Sub
Sub AjustementJours()
Dim maDate As Date
maDate = DateSerial(2023, 10, 32) ' Cela représente le 1er novembre 2023
MsgBox "Nouvelle date : " & maDate
End Sub
- Utilisation avec les ajustements de mois :
- Utilisation avec les ajustements de jours :
Remarques
- La fonction `DateSerial` est utile lorsque vous souhaitez construire une date à partir de ses composants individuels.
- Si les arguments fournis sont hors de la portée habituelle (comme un mois de 13 ou un jour de 32), VBA les ajustera automatiquement en conséquence.
Assurez-vous que les arguments utilisés avec `DateSerial` soient valides et dans le bon ordre pour éviter des erreurs inattendues.
Unlock Your Potential
Excel
Access
Power BI
