DateSerial, fonction (Visual Basic)
Mise à jour : novembre 2007
Retourne une valeur Date représentant une année, un mois et un jour spécifiés, l'indication d'heure ayant la valeur minuit (00:00:00).
Public Function DateSerial( _
ByVal [Year] As Integer, _
ByVal [Month] As Integer, _
ByVal [Day] As Integer _
) As DateTime
Paramètres
Year
Requis. Expression Integer comprise entre 1 et 9999. Cependant, les valeurs inférieures à cette plage sont également acceptées. Si Year a une valeur comprise entre 0 et 99, elle est interprétée comme étant située entre 1930 et 2029, conformément à ce qui est expliqué dans la section « Notes » ci-dessous. Si Year a une valeur inférieure à 1, cette dernière est soustraite de l'année en cours.Month
Requis. Expression Integer comprise entre 1 et 12. Cependant, les valeurs non comprises dans cette plage sont également acceptées. La valeur de Month est décalée de 1 et appliquée au mois de janvier de l'année calculée. En d'autres termes, (Month - 1) est ajouté à janvier. L'année est recalculée si nécessaire. Les résultats suivants illustrent cet effet :Si Month a la valeur 1, le résultat est janvier de l'année calculée.
Si Month a la valeur 0, le résultat est décembre de l'année précédente.
Si Month a la valeur -1, le résultat est novembre de l'année précédente.
Si Month a la valeur 13, le résultat est janvier de l'année suivante.
Day
Requis. Expression Integer comprise entre 1 et 31. Cependant, les valeurs non comprises dans cette plage sont également acceptées. La valeur de Day est décalée de 1 et appliquée au premier jour du mois calculé. En d'autres termes, (Day - 1) est ajouté au premier jour du mois. Le mois et l'année sont recalculés si nécessaire. Les résultats suivants illustrent cet effet :Si Day a la valeur 1, le résultat est le premier jour du mois calculé.
Si Day a la valeur 0, le résultat est le dernier jour du mois précédent.
Si Day a la valeur -1, le résultat est l'avant-dernier jour du mois précédent.
Si Day est ultérieur à la fin du mois en cours, le résultat est le jour correspondant du mois suivant. Par exemple, si Month a la valeur 4 et Day la valeur 31, le résultat est le 1er mai.
Notes
Sous Windows 98 ou Windows 2000, les années sur deux chiffres fournies pour l'argument Year sont interprétées en fonction des paramètres de l'ordinateur définis par l'utilisateur. Les paramètres par défaut sont les valeurs comprises entre 0 et 29, interprétées comme les années 2000–2029, et celles comprises entre 30 et 99, interprétées comme les années 1930–1999. Pour tous les autres arguments Year, exprimez l'année sous la forme d'un nombre à quatre chiffres, par exemple 1924.
Les versions antérieures de Windows interprètent les années à deux chiffres en fonction des paramètres par défaut décrits précédemment. Pour vous assurer que la fonction retourne la valeur correcte, utilisez une année (Year) à quatre chiffres.
L'exemple à suivre contient des valeurs d'arguments négatives, nulles et positives. Dans ce cas, la fonction DateSerial retourne une Date représentant le jour précédant le premier jour du mois de mars de l'année située 10 ans avant l'année en cours, soit en d'autres termes le dernier jour de février il y a dix ans.
Dim EndFeb As Date = DateSerial(-10, 3, 0)
Si Month ou Day dépasse la plage normale, la valeur est appliquée à l'unité supérieure pertinente. Par exemple, si vous spécifiez 32 jours, ce chiffre est interprété comme un mois plus entre un et quatre jours, selon la valeur de Month. Si Year est supérieure à 9999 ou si n'importe quel argument se situe en dehors de la plage allant de -2 147 483 648 à 2 147 483 647, une erreur ArgumentException se produit. Si la date spécifiée par les trois arguments est antérieure à 00:00:00 le 1er janvier de l'année 1 ou ultérieure à 23:59:59 le 31 décembre 9999, une erreur ArgumentOutOfRangeException se produit.
Le type de données Date inclut les composants heure. DateSerial leur affecte tous la valeur 0, de sorte que la valeur retournée représente le début du jour calculé.
Étant donné que chaque valeur Date est prise en charge par une structure DateTime, ses méthodes vous donnent des possibilités supplémentaires pour assembler une valeur Date. Par exemple, vous pouvez utiliser l'un des constructeurs DateTime surchargés pour remplir une variable Date à l'aide de la combinaison de composants souhaitée. L'exemple suivant affecte à NewDateTime la valeur du 6 mai 1978 à un dixième de seconde avant 8 heures 30 :
Dim NewDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900)
Exemple
Cet exemple utilise la fonction DateSerial pour retourner la date de l'année, du mois et du jour spécifiés.
Dim MyDate As Date
' MyDate contains the date for February 12, 1969.
MyDate = DateSerial(1969, 2, 12) ' Return a date.
Configuration requise
Espace de noms :Microsoft.VisualBasic
**Module :**DateAndTime
**Assembly :**bibliothèque Visual Basic Runtime (dans Microsoft.VisualBasic.dll)
Voir aussi
Référence
DateValue, fonction (Visual Basic)
Month, fonction (Visual Basic)
TimeSerial, fonction (Visual Basic)
TimeValue, fonction (Visual Basic)
Weekday, fonction (Visual Basic)