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