Visual Basic 함수정리(T)
출처 : http://blog.naver.com/chchcom?Redirect=Log&logNo=3156879
◆ Tab 함수
Print # 문이나 Print 메서드와 함께 사용되어 출력 위치를 정합니다.
▶ 구문 : Tab[(n)]
선택 항목인 n 인수에는 목록에 있는 다음 식을 표시 또는 인쇄하기 전에 이동할 열 수를 사용합니다. 인수가 생략되면 Tab은 다
음 인쇄 영역이 시작하는 곳으로 삽입 포인트를 옮깁니다. , 기호가 십진 구분자로 사용되는 로케일에서는 콤마 기호 대신 Tab을
사용할 수 있습니다.
▶ 참고 : 현재 행의 현재 인쇄 위치가 n보다 크면 Tab은 다음 출력 행의 n번째 열로 건너 뜁니다. n이 1보다 작으면 Tab은 인쇄 위치를 1
로 옮깁니다. n이 출력 행의 너비보다 크면 Tab은 아래 공식을 사용하여 다음 출력 위치를 계산합니다.
n Mod width
예를 들어 width가 80 인데 Tab(90)을 지정하면, 열 10 (90/80의 나머지)에서 다음 인쇄를 시작할 것입니다. n이 현재 인쇄 위치보
다 작으면 다음 행에 있는 계산된 인쇄 위치에서 인쇄하기 시작합니다. 계산된 인쇄 위치가 현재 인쇄 위치보다 크면 같은 행에
있는 계산된 인쇄 위치에서 인쇄하기 시작합니다.
출력 행에서 맨 왼쪽 인쇄 위치는 항상 1입니다. Print # 문으로 파일에 인쇄할 때 맨 오른쪽 인쇄 위치는 출력 파일의 현재 너비
가 됩니다. 그 너비는 Width # 문으로 설정할 수 있습니다.
주의 도표 열이 넓은 문자를 수용할 만큼 충분히 넓은지 확인하도록 하십시오.
Print 메서드와 함께 Tab 함수를 사용할 때 인쇄 모양은 고정 너비 열로 일정하게 나누어 집니다. 각 열의 너비는 선택한 글꼴의
포인트 크기로 된 모든 문자 너비의 평균입니다. 그러나 인쇄되는 문자 수와 그 문자들이 차지하는 고정 너비 열 수 사이에는 아
무런 관계가 없습니다. 예를 들어 대문자 W는 하나 이상의 고정 너비 열을 차지하고, 소문자 i는 하나 이하의 고정 너비 열을 차
지합니다.
Tab 함수 예제
다음은 파일과 [디버그] 창에서 출력의 위치를 지정하기 위해 Tab 함수를 사용하는 예제입니다.
' Tab 함수는 Print # 문과 함께 사용할 수 있습니다.
Open "TESTFILE" For Output As #1 ' 출력을 위해 파일을 엽니다.
Print #1, "Hello"; Tab(20); "World." ' 20번째 .
Print #1, "Hello"; Tab; "World" ' If the argument is omitted, cursor is moved to the next print zone.
Close #1 ' Close file.
Tab 함수 역시 Print 메서드와 함께 사용합니다. 다음 문은 10번째 열부터 문자열을 출력합니다.
Debug.Print Tab(10); "10 columns from start."
◆ Tan 함수
각도의 탄젠트값을 지정하는 Double 값을 반환합니다.
▶ 구문 : Tan(number)
필수 항목 number 인수는 Double이나 유효한 라디안으로 된 각을 표현하는 숫자 식입니다.
▶ 참고 : Tan는 각도를 취하여 직각 삼각형의 두 변의 비율을 반환합니다. 이 비율은 각을 마주하는 변의 길이를 각에 인접한 변으로 나눈
값입니다.
각도를 라디안으로 환산하려면 각도에 pi/180를 곱합니다. 라디안을 각도로 환산하려면 라디안에 180/pi를 곱합니다.
Tan 함수 예제
다음은 각의 탄젠트 값을 반환하기 위해 Tan 함수를 사용하는 예제입니다.
Dim MyAngle, MyCotangent
MyAngle = 1.3 ' 라디안 값의 각을 정의합니다.
MyCotangent = 1 / Tan(MyAngle) ' 코탄젠트를 계산합니다.
◆ Time 함수
현재의 시스템 시간을 나타내는 Variant (Date) 값을 반환합니다.
▶ 구문 : Time
▶ 참고 : 시스템 시간을 설정할 때, Time 문을 사용합니다.
Time 함수 예제
이 예제는 Time 함수를 사용하여 현재 시스템 시간을 반환합니다.
Dim MyTime
MyTime = Time ' 현재 시스템 시간을 반환합니다.
◆ Timer 함수
자정 이후 경과한 초 수를 나타내는 Single 값을 반환합니다.
▶ 구문 : Timer
Timer 함수 예제
이 예제는 Timer 함수를 사용하여 응용 프로그램을 잠시 멈추게 합니다. 또한 DoEvents를 사용하여 잠시 멈추는 동안 다른 프로
세스를 제공합니다.
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("예를 눌러서 5초동안 중지합니다", 4)) = vbYes Then
PauseTime = 5 ' 기간을 지정합니다.
Start = Timer ' 시작 시간을 지정합니다.
Do While Timer < Start + PauseTime
DoEvents ' 다른 프로시저로 넘깁니다.
Loop
Finish = Timer ' 종료 시간을 지정합니다.
TotalTime = Finish - Start ' 전체 시간을 계산합니다.
MsgBox TotalTime & " 초동안 중지되었습니다"
Else
End
End If
TimeSerial 함수
특정 시, 분, 초에 대한 시간을 나타내는 Variant (Date) 값을 반환합니다.
▶ 구문 : TimeSerial(hour, minute, second)
TimeSerial 함수 문은 다음과 같은 이름 지정된 인수로 되어 있습니다.
구성 요소
설명
hour
minute
second
필수; Variant (Integer). 숫자 식이나 0(12:00 A.M.)과 23(11:00 P.M.) 사이의 숫자입니다.
필수, Variant (Integer). 모든 숫자 식.
필수, Variant (Integer). 모든 숫자 식.
▶ 참고 : 11:59:59와 같이 시간을 지정할 때, TimeSerial 인수는 지정 시간의 범위 값만을 사용할 수 있습니다. 시간의 경우 0 - 23값이거나
분이나 초의 경우 0 - 59 사이의 값을 사용합니다. 특정 시간 전후의 시,분,초를 표현한 숫자 식을 사용하여 각 인수를 상대 시간
으로 지정할 수도 있습니다. 다음은 절대 시간 대신에 식을 사용한 예입니다. TimeSerial 함수가 정오로부터 6시간 전(12 - 6)의 15
분 전(-15) 시각 또는 5:45:00 A.M을 반환합니다.
TimeSerial(12 - 6, -15, 0)
▶ 인수 값이 승인된 범위를 초과하는 경우, 적절한 상위 단위로 변환하여 계산합니다. 예를 들어, 75분을 지정한 경우 이 값은 1시
간 15분으로 계산됩니다. 단위 인수 값이 -32,768에서 32,767의 범위를 초과하는 경우는 오류가 발생합니다. 세 인수에 따라 지정
된 날짜가 승인된 범위를 초과하는 경우에도 오류가 발생합니다.
TimeSerial 함수 예제 이 예제는 TimeSerial 함수를 사용하여 지정된 시, 분, 초에 대한 시간을 반환합니다.
Dim MyTime
MyTime = TimeSerial(16, 35, 17) ' MyTime이 4:35:17 PM의 일련 표현을 포함하고 있습니다.
◆ TimeValue 함수
시간 값을 포함한 Variant (Date) 값을 반환합니다.
▶ 구문 : TimeValue(time)
time 인수는 0:00:00 (12:00:00 A.M.)부터 23:59:59(11:59:59 P.M.)까지의 값을 갖는 문자열 식으로 사용합니다. 그러나 지정된 범위의
time을 나타내기 위하여 어떤 식도 사용할 수 있습니다. time에 Null
이 포함되어 있으면, Null을 반환합니다.
▶ 참고 : 12시나 24시 시계를 이용하여 유효한 시간을 입력할 수 있습니다. 예를 들어, "2:24PM"과 "14:24"는 모두 유효한 time 인수입니다.
time 인수는 TimeValue가 반환하지 않는 날짜 정보를 포함합니다. 그러나 time에 잘못된 날짜 정보가 포함된 경우, 오류가 발생합
니다.
TimeValue 함수 예제
이 예제는 TimeValue 함수를 사용하여 문자열을 시간으로 변환합니다. 사용자는 날짜 문자를 사용하여 시간을 직접 Variant나
Date 변수로 할당할 수 있습니다. 예를 들면, MyTime = #4:35:17 PM#.
Dim MyTime
MyTime = TimeValue("4:35:17 PM") ' 시간을 반환합니다.
◆ TypeName 함수
변수에 대한 정보를 제공하는 String을 반환합니다.
▶ 구문 : TypeName(varname)
▶ 사용자 정의 형식의 변수를 제외한 변수가 들어 있는 Variant를 나타내는 varname 인수가 필요합니다.
▶ 참고 : TypeName이 반환하는 문자열은 다음과 같습니다.
반환되는 문자열
변수
개체 형식
Byte
Integer
Long
Single
Double
Currency
Decimal
Date
String
Boolean
Error
Empty
Null
Object
Unknown
Nothing
형식이 objecttype인 개체
바이트 값
정수
긴 정수
단정도 부동 소수점 수
배정도 부동 소수점 수
통화 값
십진 값
날짜 값
문자열
Boolean 값
오류 값
초기화 되지 않음
유효한 데이터 없음
개체
형식이 알려지지 않은 개체
개체를 참조하지 않는 개체 변수
varname이 배열이면 반환되는 문자열은 반환 가능한 문자열 (또는 Variant)에 빈 괄호가 첨가됩니다. 예를 들면, varname이 정수 배
열이면 TypeName은 "Integer( )"를 반환합니다.
TypeName 함수 예제
다음은 변수에 관한 정보를 반환하기 위해 TypeName 함수를 사용하는 예제입니다.
Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency ' 변수를 선언합니다.
Dim ArrayVar (1 To 5) As Integer
NullVar = Null ' Null을 지정합니다.
MyType = TypeName(StrVar) ' "String"을 반환합니다.
MyType = TypeName(IntVar) ' "Integer"를 반환합니다.
MyType = TypeName(CurVar) ' "Currency"를 반환합니다.
MyType = TypeName(NullVar) ' "Null"을 반환합니다.
MyType = TypeName(배열 차원을 나타내는 첨자가 포함된 Long을 반환합니다.