Easy-Micro


ESPACEMEMBRE Fonctions VBA
Date

Les fonctions de date

Sub Mes_Dates()

'Day : jour du mois de 1 à 31
'Year : numéro de l'année
'Month: numéro du mois

'Numéro du jour
Range("A1").Value = "Nous sommes le " & Day(Now)

'Numéro du mois
Range("A2").Value = Month(Now)

'Fonction aujourdhui()
Range("A2").Formula = "=Today()"

'Date du jour (2 techniques)
Range("A2").Value = DateSerial(Year(Now), Month(Now), Day(Now))
Range("A2").Value = Year(Now) & "/" & Month(Now) & "/" & Day(Now)

End Sub

Sub Nombre_De_Jour_Du_Mois()

'Nombre de jour du mois
Range("A3").Value = Day(DateSerial(Year(Now), Month(Now) + 1, 0))
'DateSerial renvoie une date - Syntaxe: DateSerial(year, month, day)
'DateSerial(Year(Now), Month(Now) + 1, 0) renvoie la date du dernier jour du mois
End Sub

Même exemple que ci-dessus mais avec une fonction
Public Function NbJourMoisCourant(UneDate As Date)
NbJourMoisCourant = Day(DateSerial(Year(UneDate), Month(UneDate) + 1, 0))
End Function

Sub Nom_Du_Jour_De_La_Semaine()
Dim madate As Date
madate = "05/02/2018"

'Exemple simple
Cells(1, 1) = WeekdayName(Day(madate), False, 2)

'Autre exemple
Cells(1, 2) = WeekdayName(Weekday(madate, 2), False, 2)
'Syntaxe de WeekdayName( unedate, [date en abrégée], début de la semaine - 2=lundi et 1 = dimanche)
'Syntaxe de Weekday( unedate, début de la semaine)
End Sub

Numéro de la semaine :
Sub proc_numero_de_la_semaine()
Dim nosemaine As String
Dim madate As Date

madate = Range("B1").Value 'Récupère la date du jour affichée dans B1
'Calcul le numéro de la semaine de cette date :
nosemaine = Format(madate, "ww", vbMonday, vbFirstFourDays)
Range("B2").Value = nosemaine 'Affiche le numéro de la semaine
End Sub

Format de date

Exemple:
Dim madate
madate = Year(Now)
'Format de date longue :
Cells(1, ).Value = Format(madate, "Long Date")

'Renvoie le mois en cours sous 2 chiffre:
Range("A2") = Format(Now(), "mm")

Format de nombre avec un zéro devant :
Format(Valeur, "0#")


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Mercredi 16 janvier 2019 - Semaine 03 - Saint Marcel (Demain: Sainte Roseline)
Aujourd'hui, c'est l'anniversaire de Richard Bohringer (1942-77 ans), acteur (subway, Diva, Le grand chemin...), réalisateur (2006 : C'est beau une ville la nuit, d'après son livre publié en 1988), chanteur et écrivain français. Autre 16 janvier: 1920 - L'alcool est prohibé aux Etats-Unis.
Haut de page Easy-Micro