DateAndTime.TimeSerial(Int32, Int32, Int32) Метод

Определение

Пространство имен:

Microsoft.VisualBasic

Сборка:

Microsoft.VisualBasic.Core.dll

Исходный код:

DateAndTime.vb

Возвращает значение типа Date, представляющее заданный час, минуту и секунду, при этом дата установлена относительно 1 января 1 года.

public:
 static DateTime TimeSerial(int Hour, int Minute, int Second);

public static DateTime TimeSerial (int Hour, int Minute, int Second);

static member TimeSerial : int * int * int -> DateTime

Public Function TimeSerial (Hour As Integer, Minute As Integer, Second As Integer) As DateTime

Параметры

Hour

Int32

Обязательный. Целочисленное выражение со значениями от 0 до 23. Однако значения, находящиеся за пределами этого диапазона, также являются допустимыми.

Minute

Int32

Обязательный. Целочисленное выражение со значениями от 0 до 59. Однако значения, находящиеся за пределами этого диапазона, также являются допустимыми. Значение параметра Minute добавляется к расчетному часу, и отрицательное значение указывает минуты до наступления этого часа.

Second

Int32

Обязательный. Целочисленное выражение со значениями от 0 до 59. Однако значения, находящиеся за пределами этого диапазона, также являются допустимыми. Значение параметра Second добавляется к вычисленным минутам, поэтому отрицательное значение указывает секунды до наступления этой минуты.

Возвращаемое значение

DateTime

Значение типа Date, представляющее заданный час, минуту и секунду, при этом дата установлена относительно 1 января 1 года.

Исключения

ArgumentException

Значение аргумента находится вне диапазона от -2147483648 до 2147483647

ArgumentOutOfRangeException

Вычисленное время меньше, чем –24 (отрицательное значение) часа.

Примеры

В следующем примере функция используется TimeSerial для возврата времени для указанного часа, минуты и секунды.

Dim thisTime As Date
thisTime = TimeSerial(16, 35, 17)

Комментарии

В следующем примере показаны отрицательные, нулевые и положительные значения аргументов. Функция TimeSerial возвращает время, представляющее 15 минут до трех часов до полудня или 8:45:00.

Dim alarmTime As Date = TimeSerial(12 - 3, -15, 0)  

Если значение Minute или Second превышает обычный диапазон, оно применяется к следующей единице, более крупной, если это необходимо. Например, если указать 75 минут, они будут оцениваться как один час и 15 минут.

TimeSerial уменьшает общее количество секунд по модулю 86 400, то есть количество секунд в день. Таким образом, возвращаемое время всегда находится в диапазоне от 00:00:00 до 23:59:59.

Тип Date данных включает компоненты даты. TimeSerial задает для всех этих значений значение 1, поэтому возвращаемое значение представляет первый день года 1. Однако если значения аргументов приводят к тому, что вычисляемое время превышает 24 часа, день увеличивается по мере необходимости. В следующем примере значения Hour и Minute приводят к объединенному времени более 24 часов.

MsgBox(TimeSerial(23, 75, 0))   
' The preceding statement displays "1/2/0001 12:15:00 AM".  

Если значения аргументов приводят к отрицательному расчету времени, то для сведений о дате устанавливается значение 01.01.0001, а сведения о времени корректируются в диапазоне от 00:00:00 до 23:59:59. Однако если вычисленное время меньше отрицательного 24 часа, ArgumentOutOfRangeException возникает ошибка.

Так как каждое Date значение поддерживается структурой System.DateTime , ее методы предоставляют дополнительные возможности при сборке Date значения. Например, можно использовать один из перегруженных DateTime конструкторов для заполнения переменной Date с помощью требуемой комбинации компонентов. В следующем примере устанавливается newDateTime значение 6 мая 1978 г. за одну десятую секунду до 8:30 утра:

Dim newDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900)  

См. также раздел

• DateSerial(Int32, Int32, Int32)
• DateValue(String)
• Hour(DateTime)
• Minute(DateTime)
• Now
• Second(DateTime)
• TimeValue(String)