Date de comparaison en VBA

VBA Date Type

• Il est utile de rappeler comment VBA stocke les valeurs de date dans la mémoire lorsque vous comparez dates. Une date est stockée comme un double-nombre à virgule flottante, ou un double. La partie entière de long est le nombre de jours, positifs ou négatifs, depuis le 30 Décembre 1899. La partie décimale est la quantité de temps écoulé depuis minuit. Un jour avec un rien de temps a sa partie décimale mis à zéro. Par exemple, le 1 mai 1967 est stocké en tant 24593,0. Cela signifie que lorsque VBA compare deux dates, il est effectivement la comparaison de deux chiffres qui représentent des jours.

Chaîne de caractères Vs. Date

• Lorsque vous comparez dates en VBA, vous devez vous assurer que les valeurs que vous comparez ont une "Date" taper et ne sont pas des chaînes de caractères. Par exemple, la chaîne de caractères "05/01/1999" est inférieure à la chaîne de caractères "31/12/1900" car "05" vient avant "12." Convertir une chaîne de caractères à un type de date en utilisant le "CDate" fonction, par exemple, "CDate (TextBox.Value)".

Fonctions utiles

• 
  
  
  
  

  En plus de CDate (), il ya d'autres fonctions utiles que vous pouvez utiliser lorsque l'on compare les dates. La "Date ()" fonction fournit la date d'aujourd'hui comme une valeur de date. La "Maintenant ()" fonction fournit la date et l'heure d'aujourd'hui comme une valeur de date. Parce que le type de données Date comprend également une composante de temps, vous pouvez extraire uniquement la partie date d'une variable lorsque l'on compare les dates en utilisant le "DateValue ()" fonction, par exemple, "Si la soumission gt; DateValue (date limite) Alors ..."

Date de Arithmétique

• Parce qu'une date est stockée comme le nombre de jours depuis le 30 Décembre 1899, vous pouvez inclure la date de calcul lorsque l'on compare les dates en VBA. Par exemple, si un billet expire trois jours après il a été acheté, vous pouvez vérifier pour un billet périmé avec le code VBA semblable au suivant:

  Fonction publique a expiré (achat en date) As Boolean
  expired = False
  Si achat + 3 gt; Date () Ensuite,
  expired = Vrai
  Fin si
  End Function