Please Enable JavaScript!
Gon[ Enable JavaScript ]

엑셀 VBA 함수 Time 사용해서 현재 시간 표시하기

엑셀(Excel)/VBA
반응형

VBA에서 Time 함수는 현재 시간을 반환하는 함수입니다. Time 함수를 사용하면 현재 시간을 손쉽게 가져와서 시간과 관련된 작업을 수행할 수 있으며, 필요에 따라 시간 형식을 지정하여 표시할 수 있습니다. 아래에서 Time 함수의 개념, 구문, 예제, 실행 결과 및 소스 설명을 설명하겠습니다.

 

 

 

구문

 

Time 함수는 현재 시스템 시간을 반환합니다. 이 함수는 시간 형식의 값을 생성하여 현재 시간을 나타냅니다. 인수는 가지지 않습니다.

 

Time

 

 

예제 1: 현재 시간 표시

 

예제에서는 [Time] 함수를 사용하여 현재 시간을 가져옵니다. 현재 시간을 변수에 저장한 다음 메시지 상자를 통해 시간을 표시합니다. 

 

Sub ShowCurrentTime()
    Dim currentTime As Date
    currentTime = Time
 
    MsgBox "현재 시간: " & currentTime, vbInformation, "시간 표시"
End Sub

 

 

예제 2: 시간 형식 지정

 

예제에서는 [Time] 함수를 사용하여 현재 시간을 가져온 다음, 원하는 형식으로 시간을 표시합니다. [Format] 함수를 사용하여 시간을 "hh:mm:ss AM/PM" 형식으로 변환하고 메시지 상자에 표시합니다.

 

Sub FormatTime()
    Dim currentTime As Date
    currentTime = Time
 
    Dim formattedTime As String
    formattedTime = Format(currentTime, "hh:mm:ss AM/PM")
 
    MsgBox "현재 시간: " & formattedTime, vbInformation, "시간 형식 지정"
End Sub

 

 

예제 3: 시간 연산

 

예제에서는 [Time] 함수를 사용하여 현재 시간을 가져온 다음, 2시간 후의 시간을 계산합니다. [DateAdd] 함수를 사용하여 현재 시간에 2시간을 더하여 미래 시간을 계산하고 메시지 상자에 표시합니다.

Sub TimeOperations()
    Dim currentTime As Date
    currentTime = Time
 
    Dim futureTime As Date
    futureTime = DateAdd("h", 2, currentTime)
 
    MsgBox "현재 시간: " & currentTime & vbCrLf & "2시간 후 시간: " & futureTime, vbInformation, "시간 연산"
End Sub

 


 

반응형
Posted by 녹두장군1
,