Vous pouvez également utiliser des variables de variante à des valeurs de date / heure de magasins allant de 1 Janvier 2010 au 31 Décembre 9999. En outre, vous pouvez effectuer des opérations mathématiques sur des variantes qui contiennent des valeurs de date / heure. Semblable à la "IsNumeric" fonction, vous pouvez également utiliser la "IsDate" fonction pour déterminer si une variable variante est titulaire d'une valeur de date. Ce qui suit est un exemple de comment vous pouvez utiliser le "IsDate" fonctionner sur une variante:
SomeDate Dim, DaysLeft
Si IsDate (Text1.Text) Ensuite,
SomeDate = CDate (Text1.Text)
DaysLeft = DateSerial (Année (SomeDate) + _
1, 1, 1) - SomeDate
Text2.Text = DaysLeft & " jours restants dans l'année."
Autre
MsgBox Text1.Text & " est pas une date valide."
Fin si