다음을 통해 공유


TimeSerial 함수(Visual Basic)

업데이트: 2007년 11월

날짜 정보가 1년 1월 1일로 설정된 상태에서 지정된 시, 분, 초를 나타내는 Date 값을 반환합니다.

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

매개 변수

  • Hour
    필수적 요소. 0에서 23까지의 Integer 식입니다. 그러나 이 범위를 벗어나는 값도 사용할 수 있습니다.

  • Minute
    필수적 요소. 0부터 59까지의 Integer 식입니다. 그러나 이 범위를 벗어나는 값도 사용할 수 있습니다. Minute의 값은 계산된 시간에 더해지므로 음수 값은 계산된 시간에서 이 값만큼 뺀 분 수를 지정합니다.

  • Second
    필수적 요소. 0에서 59까지의 Integer 식입니다. 그러나 이 범위를 벗어나는 값도 사용할 수 있습니다. Second의 값은 계산된 분에 더해지므로 음수 값은 계산된 분에서 이 값만큼 뺀 초 수를 지정합니다.

예외

예외 형식

오류 번호

조건

ArgumentException

5

인수의 범위가 -2,147,483,648 ~ 2,147,483,647을 벗어났습니다.

ArgumentOutOfRangeException

9

계산된 시간이 -24 시보다 작습니다.

비구조적 오류 처리를 사용하는 Visual Basic 6.0 응용 프로그램을 업그레이드하는 경우에는 "오류 번호" 열을 참조하십시오. 오류 번호를 Number 속성(Err 개체)과 비교할 수 있습니다. 그러나 가능하면 이러한 오류 제어 방법을 Visual Basic의 구조적 예외 처리 개요에 설명된 방식으로 바꾸는 것이 좋습니다.

설명

다음 예제에서는 음수, 0 및 양수의 인수 값을 사용합니다. TimeSerial 함수는 정오에서 3시간 15분 전 또는 오전 8시 45분 정각을 나타내는 시간을 반환합니다.

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

Minute 또는 Second가 정상 범위를 벗어나면 다음으로 큰 단위가 적용됩니다. 예를 들어, 75분을 지정하면 1시간 15분으로 계산됩니다.

TimeSerial은 전체 초 수를 1일의 총 초 수인 86,400으로 나눈 나머지 값으로 줄입니다. 따라서 반환 값은 항상 00:00:00과 23:59:59 사이의 값입니다.

Date 데이터 형식에는 날짜 구성 요소가 포함됩니다. TimeSerial은 이러한 구성 요소를 모두 1로 설정하므로 0001년의 첫째 날짜가 반환됩니다. 그러나 인수의 값을 계산한 결과가 24시를 초과하는 경우에는 해당 요일만큼 날짜가 증가합니다. 다음 예제에서는 Hour 값과 Minute 값을 합한 값이 24시를 초과합니다.

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

인수의 값을 계산한 결과가 음수 시간일 경우 날짜 정보는 1/1/0001로 설정되고 시간 정보는 00:00:00과 23:59:59 사이로 조정됩니다. 그러나 계산된 시간이 -24시보다 작으면 ArgumentOutOfRangeException 오류가 발생합니다.

System.DateTime 구조체는 모든 Date 값을 지원하므로 해당 메서드에는 Date 값을 어셈블하는 데 사용할 수 있는 추가 옵션이 있습니다. 예를 들어, 오버로드된 DateTime 생성자 중 하나를 사용하면 구성 요소를 필요한 대로 결합하여 Date 변수를 채울 수 있습니다. 다음 예제에서는 newDateTime을 1978년 5월 6일 오전 8:30에서 0.1초 전의 시간으로 설정합니다.

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

예제

다음 예제에서는 TimeSerial 함수를 사용하여 지정된 시, 분, 초에 해당하는 시간을 반환합니다.

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

요구 사항

네임스페이스:Microsoft.VisualBasic

**모듈:**DateAndTime

**어셈블리:**Visual Basic 런타임 라이브러리(Microsoft.VisualBasic.dll)

참고 항목

참조

DateSerial 함수(Visual Basic)

DateValue 함수(Visual Basic)

Hour 함수(Visual Basic)

Minute 함수

Now 속성

Second 함수(Visual Basic)

TimeValue 함수(Visual Basic)