프로그램 자료/Visual Basic

Visual Basic 함수정리(T)

motolies 2009. 12. 21. 13:15

출처 : 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을 반환합니다.