TimeSerial, fonction (Visual Basic)
Mise à jour : novembre 2007
Retourne une valeur Date représentant une heure, une minute et une seconde spécifiées, l'indication de date ayant la valeur 1er janvier de l'année 1.
Public Function TimeSerial( _
ByVal Hour As Integer, _
ByVal Minute As Integer, _
ByVal Second As Integer _
) As DateTime
Paramètres
Hour
Requis. Expression Integer comprise entre 0 et 23. Cependant, les valeurs non comprises dans cette plage sont également acceptées.Minute
Requis. Expression Integer comprise entre 0 et 59. Cependant, les valeurs non comprises dans cette plage sont également acceptées. La valeur de Minute est ajoutée à l'heure calculée, et donc une valeur négative spécifie les minutes précédant cette heure.Second
Requis. Expression Integer comprise entre 0 et 59. Cependant, les valeurs non comprises dans cette plage sont également acceptées. La valeur de Second est ajoutée à la seconde calculée, et donc une valeur négative spécifie les secondes précédant cette minute.
Exceptions
Type d'exception |
Numéro de l'erreur |
Condition |
|---|---|---|
L'argument se trouve en dehors de la plage s'étendant de -2 147 483 648 à 2 147 483 647. |
||
L'heure calculée est inférieure à -24 heures. |
Consultez la colonne « Numéro d'erreur » si vous mettez à niveau des applications Visual Basic 6.0 qui utilisent la gestion non structurée des erreurs. (Vous pouvez comparer le numéro d'erreur par rapport à Number, propriété (objet Err).) Toutefois, lorsque cela est possible, vous devez envisager de remplacer un tel contrôle d'erreurs par Vue d'ensemble de la gestion structurée des exceptions pour Visual Basic.
Notes
L'exemple à suivre contient des valeurs d'arguments négatives, nulles et positives. La fonction TimeSerial retourne une période représentant 15 minutes avant trois heures avant midi, c'est-à-dire 8:45:00.
Dim alarmTime As Date = TimeSerial(12 - 3, -15, 0)
Si Minute ou Second dépasse la plage normale, la valeur est appliquée à l'unité supérieure pertinente. Par exemple, si vous spécifiez 75 minutes, ce chiffre est interprété comme une heure et 15 minutes.
La fonction TimeSerial réduit le total des secondes avec un modulo 86 400, qui correspond au nombre de secondes que contient un jour. Ainsi, l'heure retournée se situe toujours entre 00:00:00 et 23:59:59.
Le type de données Date inclut les composants de date. TimeSerial affecte la valeur 1 à tous ces composants, ainsi la valeur retournée représente le premier jour de l'année 1. Toutefois, si les valeurs des arguments entraînent le temps calculé à dépasser 24 heures, le jour est incrémenté comme il convient. Dans l'exemple suivant, les valeurs de Hour et Minute ont comme résultat une heure combinée supérieure à 24 heures.
MsgBox(TimeSerial(23, 75, 0))
' The preceding statement displays "1/2/0001 12:15:00 AM".
Si les valeurs des arguments ont pour résultat un temps calculé négatif, les informations de date ont la valeur 1/1/0001 et les informations d'heure sont ajustées entre 00:00:00 et 23:59:59. Toutefois, si le temps calculé en heures est inférieur à -24, une erreur ArgumentOutOfRangeException s'est produite.
Étant donné que chaque valeur Date est prise en charge par une structure System.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
L'exemple suivant utilise la fonction TimeSerial pour retourner un temps pour l'heure, la minute et la seconde spécifiées.
Dim thisTime As Date
thisTime = TimeSerial(16, 35, 17)
Configuration requise
Espace de noms :Microsoft.VisualBasic
**Module :**DateAndTime
**Assembly :**bibliothèque Visual Basic Runtime (dans Microsoft.VisualBasic.dll)
Voir aussi
Référence
DateSerial, fonction (Visual Basic)
DateValue, fonction (Visual Basic)