/ / Excel VBA Date et heure

Excel VBA Date et heure

Année, mois, jour d'une date | DateAjouter | Date et heure actuelles | Heure, minute, seconde | Valeur de temps

Apprenez à travailler avec dates et heures dans Excel VBA.

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code ci-dessous. Pour exécuter les lignes de code, cliquez sur le bouton de commande de la feuille.

Année, mois, jour d'une date

La macro suivante obtient l'année d'une date. Pour déclarer une date, utilisez l'instruction Dim. Pour initialiser une date, utilisez la fonction DateValue.

Code:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

Résultat:

Année d'une date dans Excel VBA

Remarque: Utilisez Mois et Jour pour obtenir le mois et le jour d'une date.

DateAjouter

Pour ajouter un nombre de jours à une date, utilisez leFonction DateAdd. La fonction DateAdd a trois arguments. Remplissez "d" pour le premier argument pour ajouter des jours. Complétez 3 pour le deuxième argument pour ajouter 3 jours. Le troisième argument représente la date à laquelle le nombre de jours sera ajouté.

Code:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

Résultat:

DateAjouter

Remarque: Changez "d" en "m" pour ajouter un nombre de mois à une date. Placez votre curseur sur DateAdd dans Visual Basic Editor et cliquez sur F1 pour obtenir de l'aide sur les autres spécificateurs d'intervalle. Les dates sont au format US. Mois en premier, Jours en second Ce type de format dépend de vos paramètres régionaux Windows.

Date et heure actuelles

Pour obtenir la date et l'heure actuelles, utilisez la fonction Maintenant.

Code:

MsgBox Now

Résultat:

Date et heure actuelles

Heure, minute, seconde

Pour obtenir l’heure d’une heure, utilisez la fonction Heure.

Code:

MsgBox Hour(Now)

Résultat:

Heure de l'heure actuelle

Remarque: utilisez les minutes et les secondes pour obtenir les minutes et les secondes.

Valeur de temps

La fonction TimeValue convertit une chaîne en un numéro de série temporel. Le numéro de série de l'heure est un nombre compris entre 0 et 1. Par exemple, midi (au milieu de la journée) est représenté par 0,5.

Code:

MsgBox TimeValue("9:20:01 am")

Résultat:

Valeur de temps

Maintenant, pour voir clairement que Excel traite les temps en interne sous forme de nombres compris entre 0 et 1, ajoutez les lignes de code suivantes:

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

Résultat:

Heure Numéro de série

Lisez aussi: