태그 자료실

InStr 함수 예제

다음은 InStr 함수를 사용하여 주어진 문자열 내에서 사용자가 지정된 문자열이 최초로 나타나는 지점을 찾아내는 예제입니다.

Dim SearchString, SearchChar, MyPos

SearchString ="XXpXXpXXPXXP"         ' 찾을 문자열.

SearchChar = "P"                              ' "P" 찾기.

MyPos = Instr(4, SearchString, SearchChar, 1)   ' 4 위치에서 텍스트 비교 시작. 6을 반환합니다.

MyPos = Instr(1, SearchString, SearchChar, 0)   ' 1 위치에서 이진 비교 시작. 9를 반환합니다.

' 비교는 기본값으로 이진법(마지막 인수는 생략).

MyPos = Instr(SearchString, SearchChar)          ' 9를 반환합니다.

MyPos = Instr(1, SearchString, "W")                  ' 0을 반환합니다.

Left 함수 예제

다음은 Left 함수를 사용하여 문자열의 왼쪽 끝에서부터 지정된 문자 수 만큼의 글자를 반환하는 예제입니다.

Dim AnyString, MyStr

AnyString = "Hello World" ' 문자열 정의.

MyStr = Left(AnyString, 1)      ' "H"를 반환합니다.

MyStr = Left(AnyString, 7)  ' "Hello W"를 반환합니다.

MyStr = Left(AnyString, 20) ' "Hello World"를 반환합니다.

Len 함수 예제

다음은 Len 함수를 사용하여 주어진 문자열이나 변수를 저장하는데 필요한 바이트 수를 구해내는 예제입니다. CustomerRecord를 정의하는데 사용하는 Type...End Type 블럭을 클래스 모듈에서 정의할 경우에는 반드시 맨 앞에 Private 키워드를 먼저 선언해 주어야 하고, 그냥 일반 모듈에서 사용할 경우에는 Type 블럭을 Public으로 선언할 수도 있습니다.

Type CustomerRecord ' 사용자 정의 형식 정의.

ID As Integer ' 이 정의를

Name As String * 10에 위치시킴 ' 표준 모듈.

Address As String * 30

End Type

Dim Customer As CustomerRecord ' 변수 선언.

Dim MyInt As Integer, MyCur As Currency

Dim MyString, MyLen

MyString = "Hello World" ' 변수 초기화.

MyLen = Len(MyInt)        ' 2를 반환합니다.

MyLen = Len(Customer) ' 42를 반환합니다.

MyLen = Len(MyString) ' 11을 반환합니다.

MyLen = Len(MyCur)        ' 8을 반환합니다.

Mid 함수 예제

다음은 Mid 함수를 사용하여 문자열로부터 지정된 수 만큼의 문자를  따내는 예제입니다.

Dim MyString, FirstWord, LastWord, MidWords

MyString = "Mid Function Demo" ' 텍스트 문자열 작성합니다.

FirstWord = Mid(MyString, 1, 3)          ' "Mid"를 반환합니다.

LastWord = Mid(MyString, 14, 4)          ' "Demo"를 반환합니다.

MidWords = Mid(MyString, 5)              ' "Function Demo"를 반환합니다.

Abs 함수 예제

다음은 숫자의 절대값을 계산하기 위해 Abs 함수를 사용하는 예제입니다.

Dim MyNumber

MyNumber = Abs(50.3) ' 50.3을 반환합니다.

MyNumber = Abs(-50.3) ' 50.3을 반환합니다.

Int 함수, Fix 함수 예제

다음 예제에서는 Int와 Fix 함수가 숫자의 정수 부분을 반환하는 방법을 보여줍니다. 음수 인수의 경우에는 Int 함수는 그 수보다 작거나 같은 첫번째 음수를 반환하고, Fix 함수는 그 수보다 크거나 같은 첫번째 음수를 반환합니다.  다른표현으로 수직선 상에서, Int함수는 0 을 기준으로 멀어지고 ( <- 0 -> ) Fix함수는 우측방향으로 진행 ( -> 0 -> ) 한다고 이해 하면 된다.

Dim MyNumber

MyNumber = Int(99.8)   ' 99를 반환합니다.

MyNumber = Fix(99.2)   ' 99를 반환합니다.

MyNumber = Int(-99.8)   ' -100를 반환합니다.

MyNumber = Fix(-99.8)   ' -99를 반환합니다.

MyNumber = Int(-99.2)   ' -100를 반환합니다.

MyNumber = Fix(-99.2)   ' -99를 반환합니다.

Round 함수

반올림 또는 4사5입 기능의 함수 입니다. 첫번째 인수로 소수부가 있는 Double형 Number을 주고 두번째 인수에는 소수부의 자리수를 지정합니다. 두번째 인수가 0 이면 소수부가 없는 정수를 반환하고 1이면 소수 둘째자리에서 반올림 하여 첫째자리 까지 남겨줍니다. 두번째 인수는 0보다 큰 정수를 받는다.

Dim MyNumber

MyNumber = Round(321.23, 1)   ' 321.2 를 반환합니다.

MyNumber = Round(321.23, 0)   ' 321 를 반환합니다.

MyNumber = Round(321.23, -1)  ' 에러발생

MyNumber = Round(321.4, 0)    ' 321 를 반환합니다.

MyNumber = Round(321.5, 0)    ' 322 를 반환합니다.

MyNumber = Round(-321.4, 0)   ' -321 를 반환합니다.

MyNumber = Round(-321.5, 0)   ' -322 를 반환합니다.

DateAdd 함수 예제

이 예제는 날짜를 선택하고 DateAdd 함수를 사용하여 미래의 지정된 달에 따른 날짜를 나타냅니다.

   Dim FirstDate As Date ' 변수를 선언합니다.

   Dim IntervalType As String

   Dim Number As Integer

   Dim Msg

   IntervalType = "m" ' "m" specifies months as interval.

   FirstDate = InputBox("Enter a date")

   Number = InputBox("Enter number of months to add")

   Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)

   MsgBox Msg

Dir 함수 예제

이 예제는 Dir 함수를 사용하여 어떤 파일과 디렉토리가 존재하는지 확인합니다.

Dim MyFile, MyPath, MyName   ' 만일 MyFile = Dir("C:\WINDOWS\WIN.INI")이 존재하면 "WIN.INI"를 반환합니다.

   ' 지정된 확장자로 파일 이름을 반환합니다. 둘 이상의 *.ini 파일이 존재하면, 찾은 첫번째 파일을 반환합니다.

MyFile = Dir("C:\WINDOWS\*.INI")    ' 같은 디렉토리에서 그 다음 *.INI 파일을 반환할 인수 없이 Dir을 다시 호출합니다.

MyFile = Dir

MyFile = Dir("*.TXT", vbHidden)   ' 숨겨진(hidden) 속성을 가진 *.TXT 파일을 먼저 반환합니다.

MyPath = "c:\" ' 경로를 설정합니다.   ' 디렉토리를 나타내는 C:\에서 이름을 표시합니다.

MyName = Dir(MyPath, vbDirectory)    ' 첫번째 항목을 검색합니다.

Do While MyName <> ""    ' 루프(loop)를 시작합니다.

' 현재 디렉토리와 포함하는 디렉토리를 무시합니다.

If MyName <> "." And MyName <> ".." Then

  ' MyName이 디렉토리인지 확인하기 위해서 비트별(bitwise) 비교를 사용합니다.

  If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

Debug.Print MyName ' 항목만 표시합니다

  End If ' 그것은 디렉토리를 표시합니다.

End If

MyName = Dir ' 다음 항목을 읽어들입니다.

Loop