날짜 및 시간을 표시하는 방법을 알아보자. 버튼 프로시져에 아래 예제들을 넣고 시험해 보자.
[예제1] 현재의 시간
'현재의 시간
Dim ClickTime As Date
ClickTime = Date.Now 'Date를 생략해도 좋다.
TextBox1.Text = ClickTime '... 2004-03-21 오후 1:33:21
TextBox1.Text = ClickTime.Year '... 2004
TextBox1.Text = ClickTime.Month '... 3
TextBox1.Text = ClickTime.Day '... 21
TextBox1.Text = ClickTime.Date '... 2004-03-21
TextBox1.Text = ClickTime.Hour '... 13
TextBox1.Text = ClickTime.Minute '... 33
TextBox1.Text = ClickTime.Second '... 21
TextBox1.Text = ClickTime.Millisecond '... 561
TextBox1.Text = ClickTime.DayOfWeek '... 0(일요일), 1(월요일), ..., 6(토요일)
TextBox1.Text = ClickTime.DayOfYear '... 81(1월1일=1)
'현재의 날짜
Dim ClickTime As Date
ClickTime = Date.Today
TextBox1.Text = ClickTime '... 2004-03-21
TextBox1.Text = ClickTime.Hour '... 0 '날짜이하의 정보는 없다.
TextBox1.Text = ClickTime.DayOfYear '... 81
[예제2] 시간 만들기
'시간변수 만들기
Dim myTime As Date
myTime = New Date(2004, 3, 21)
myTime = New Date(2004, 3, 21, 13, 33, 21)
TextBox1.Text = myTime
[예제3] 시간의 간격
'시간변수 만들기
Dim myTime1, myTime2 As Date
myTime1 = New Date(2004, 3, 21, 13, 33, 21)
myTime2 = New Date(2004, 3, 15, 4, 18, 33)
Dim TimeDiff As TimeSpan = myTime1.Subtract(myTime2)
TextBox1.Text = TimeDiff.ToString '6.09:14:48
TextBox1.Text = TimeDiff.Days '6
TextBox1.Text = TimeDiff.Hours '9
TextBox1.Text = TimeDiff.TotalHours '153.246666666667
'기타 Minutes, Seconds, Milliseconds 도 마찬가지임
'거꾸로 하면 값이 마이너스가 된다.
[예제4] 시간의 가감
Dim myTime1, myTime2 As Date
myTime1 = New Date(2004, 3, 21, 13, 33, 21)
myTime2 = myTime1.AddYears(-2)
myTime2 = myTime2.AddMonths(5)
TextBox1.Text = myTime2 '...2002-08-21 오후 1:33:21
다른예
Dim myTime1, myTime2 As Date
myTime1 = New Date(2004, 3, 21, 13, 33, 21)
myTime2 = myTime1.AddMonths(-22)
TextBox1.Text = myTime2 '...2002-05-21 오후 1:33:21
[예제5] TimeSpan을 사용한 시간의 가감
Dim myTime1, myTime2 As Date
Dim TimeDiff = New TimeSpan(150, 0, 0, 0) '150일
myTime1 = New Date(2004, 3, 21, 13, 33, 21)
myTime2 = myTime1.Add(TimeDiff)
TextBox1.Text = myTime2 '...2004-08-18 오후 1:33:21
다른예
Dim myTime1, myTime2 As Date
Dim TimeDiff = New TimeSpan(150, 0, 0, 0) '150일
myTime1 = New Date(2004, 3, 21, 13, 33, 21)
myTime2 = myTime1.Subtract(TimeDiff)
TextBox1.Text = myTime2 '...2003-10-23 오후 1:33:21
[예제6] 숫자로 변환
Dim myTime1, myTime2 As Date
myTime1 = New Date(2004, 3, 21, 13, 33, 21)
myTime2 = New Date(2004, 3, 21, 13, 33, 22)
Dim X1 As Double = myTime1.ToOADate '38067.5648263889
Dim X2 As Double = myTime2.ToOADate '38067.564837963
TextBox1.Text = X2 - X1 '1.15740767796524E-05 = 0.0000115740