Différentes façons de formater les dates en VBA

Formats longues

• Une façon vous pouvez formater les dates avec VBA est d'utiliser une série de "m" caractères pour indiquer les noms longs des mois. Par exemple, le format "mmmm" donnera simplement le texte énoncé "Décembre," si la date que vous formatez est en Décembre. Si vous voulez un mois à trois lettres, utiliser "mmm," comme dans "Selection.NumberFormat = "mmm jj, aaaa"" pour des dates comme "Le 31 décembre 1966." Notez l'utilisation de la "ré" caractère pour représenter le jour.

Formats courts

• Si vous voulez des chiffres à la place des énoncés texte pour vos dates, utilisez seulement un ou deux caractères de formatage pour vos mois. Par exemple, tapez "Selection.NumberFormat = "jj / mm / aaaa"" pour des dates comme "31/12/1966." Pour "12/66," utiliser la chaîne de formatage "mm / aa," ou juste "mon."

Dates avec Weekday

• Pour formater une date avec un jour énoncé, utiliser quatre "ré" caractères pour indiquer le jour. Par exemple, tapez "Selection.NumberFormat ="dddd, mmm jj, aaaa"" pour des dates comme "Samedi, 31 Décembre 1966." Pour abréger le jour sans l'aide de numéros, utiliser trois "ré" caractères au lieu de quatre, comme dans "DDD, mmm jj, aaaa."

Formats de date personnalisée

• 
  
  
  
  

  Vous pouvez créer un format de date personnalisé en VBA en utilisant n'importe quel délimiteur ailleurs les communes de "/," et "-." Par exemple, vous pouvez utiliser une déclaration comme "Selection.NumberFormat = "~ ~ jj mm aa"" pour produire des dates telles que "12 ~ 31 ~ 66." Vous pouvez choisir un format personnalisé juste pour le plaisir de style, ou pour préparer vos chaînes de date pour les programmes qui nécessitent des caractères spécifiques pour leur entrée.

Exemple de programme

• Le programme VBA exemple suivant vous permet d'essayer rapidement différents formats de date. Collez le programme dans l'environnement de programmation VBA, que vous pouvez entrer en appuyant "Alt" et "F11" simultanément après l'ouverture Excel. Après l'exécution du programme en appuyant sur "F5," tapez un format de date lorsque vous êtes invité, comme "jj / mm / aa." Le programme affiche la date actuelle dans le format que vous avez spécifié.

  FormatDates sub ()
  Dim fmt, s1

  fmt = InputBox ("-Tapez un format de date"-)
  s1 = Format (Maintenant, fmt)
  MsgBox s1

  End Sub