출처 : http://blog.naver.com/chchcom?Redirect=Log&logNo=3156879
◆ QBColor 함수
지정된 색 번호에 대응하는 RGB 색 코드를 나타내는 Long을 반환합니다.
▶ 구문 : QBColor(color)
요구되는 color 인수는 범위 0 5 사이의 정수입니다.
▶ 설정 : color 인수는 다음과 같이 설정되어 있습니다.
▶ 참 고
0 검정
1 파랑
2 초록
3 청록
4 빨강
5 진홍
6 노랑
7 흰색
8 회색
9 연 파랑
10 연 초록
11 연 청록
12 연 빨강
13 연 진홍
14 연 노랑
15 옅은 흰색
color 인수는 이전 버전의 Basic(MS-DOS용
Microsoft Visual Basic, Basic 컴파일러)에서 사
용하던 색 값을 나타냅니다. 최하위 바이트
로 시작하여 반환되는 값은 응용 프로그램용
Visual Basic이 사용하던 RGB 시스템에서 적
당한 색을 설정하기 위해 사용하는 빨강, 초
록, 파랑 값을 지정합니다.
QBColor 함수 예제 이 예제는 QBColor 함수를 사용하여 ColorCode에 의해 지시된 색으로 MyForm으로서 전달되는 폼의
BackColor 속성을 변경합니다. QBColor는 0 에서 15 사이의 정수값을 허용합니다.
Sub ChangeBackColor (ColorCode As Integer, MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
◆ Rate 함수
연금에 대한 일정 기간 당 이율을 지정하는 Double을 반환합니다.
▶ 구문 : Rate(nper, pmt, pv[, fv[, type[, guess]]])
Rate 함수는 다음과 같이 명명된 인수로 구성되어 있습니다.
구성 요소
설명
nper
pmt
pv
fv
type
guess
필수. 연금의 총 지불 기간 수를 지정하는 Double 입니다. 예를 들면 4년 동안의 자동차 대부에 대해 매월 지불하
려면 지불 기간은 총 4 * 12 (또는 48)가 됩니다.
필수. 각 기간에 지불할 지불액을 지정하는 Double 입니다. 지불액에는 대개 전체 연금 기간에 걸쳐 변경되지 않는
원금과 이자가 들어갑니다.
필수. 장래의 지불액이나 수령액에 대한 현재의 값을 지정하는 Double 입니다. 예를 들면 돈을 빌려서 차를 살 때
대출액은 대금업자에게 매달 지불할 현재의 값이 됩니다.
선택. 마지막으로 지불한 후에 원하는 장래의 값이나 자금 잔액을 지정하는 Variant입니다. 예를 들면 마지막으로
지불한 후의 가치가 0원이므로 장래의 대출금은 대출금은 0원이 됩니다. 그러나 자녀들의 교육 기간 18년에 걸쳐
37,500,000원을 저축하고 싶다면 장래의 값은 37,500,000원이 됩니다. 생략하면 0으로 간주합니다.
선택. 지불 만기일을 지정하는 Variant. 지불 기간이 끝날 때 지불액을 지불하려면 0, 기간이 시작될 때 지불하려면
1을 사용합니다. 생략하면 0으로 간주합니다.
선택. 추정치를 지정하는 Variant는 Rate로 얻을 수 있습니다. 생략하면 guess는 0.1 (10%)이 됩니다.
▶ 참고 : 연금은 일정 기간에 걸쳐 고정된 금액을 지불하는 것입니다. 연금은 대부(주택 저당과 같이)나 투자(월별 저축 계획과 같
이)가 될 수 있습니다. 모든 인수에 대해 지불하는 금액(예: 저축 예금)은 음수로, 수령하는 금액(예: 배당금)은 양수로 표시됩니다.
Rate는 반복적으로 계산됩니다. Rate는 guess 값으로 시작하여 결과가 0.00001%에 이를 때까지 계산을 반복합니다. 20번을 시도한
후에도 Rate가 결과를 찾을 수 없으면 실패하게 됩니다. 추정치가 10%이고 Rate이 실패하면 guess에 다른 값을 사용하여 시도해
보십시오.
Rate 함수 예제 다음은 총 불입 회수(TotPmts), 융자 불입액(Payment), 현 융자액 또는 융자원금(PVal), 미래 융자액(FVal), 기수불
또는 기말불 어느 쪽에 불입이 이루어지는지 가리키는 수(PayType), 예상 이자율의 추정치(Guess) 등이 주어진 융자액의 이자율을
계산하기 위해 Rate 함수를 사용하는 예제입니다.
Dim Fmt, FVal, Guess, PVal, Payment, TotPmts, PayType, APR
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' 불입이 된 경우.
Fmt = "##0.00" ' 백분율 서식 정의.
FVal = 0 ' 대개 융자금에 대해서는 0으로 주어집니다.
Guess = .1 ' Guess 변수를 10퍼센트로 설정합니다..
PVal = InputBox("얼마를 빌리겠습니까?")
Payment = InputBox("매달 얼마를 지불하겠습니까?")
TotPmts = InputBox("매달 얼마를 지불하겠습니까?")
PayType = MsgBox("월말에 지불하겠습니까?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
APR = (Rate(TotPmts, -Payment, PVal, FVal, PayType, Guess) * 12) * 100
MsgBox "이자 비율은 " & Format(CInt(APR), Fmt) & " 퍼센트입니다."
◆ RGB 함수
RGB 색 값을 나타내는 Long 형식의 정수를 반환합니다.
▶ 구문 : RGB(red, green, blue)
RGB 함수문은 다음과 같이 명명된 인수로 구성되어 있습니다.
구성 요소
설명
red
Green
Blue
필수. Variant (Integer). 0-255 사이의 수로, 빨간색 구성 요소를 나타냅니다.
필수. Variant (Integer). 0-255 사이의 수로, 초록색 구성 요소를 나타냅니다.
필수. Variant (Integer). 0-255 사이의 수로, 파란색 구성 요소를 나타냅니다.
▶ 참고 : 색 사양을 받아들이는 응용 프로그램 메서드와 속성 중의 사
양은 RGB 색 값을 나타내는 수가 되어야 합니다. RGB 색 값
은 빨강, 초록, 파랑의 상대 농도를 지정하여 특정 색을 표시
합니다.
RGB에 대해 255를 초과하는 인수의 값은 255로 간주합니다.
다음 표에서는 표준 색과 그 색에 들어 있는 빨강, 초록, 파랑
값을 나열합니다.
색
빨강 값
초록 값
파랑 값
검정
파랑
초록
청록
빨강
자홍
노랑
흰색
0
0
0
0
255
255
255
255
0
0
255
255
0
0
255
255
0
255
0
255
0
255
0
255
RGB 함수 예제
이 예제는 어떻게 RGB 함수가 사용되어 RGB 색 값을 나타내는 모든 숫자를 반환하는지 보여줍니다. 색 지정을 허용하는 것은
응용 프로그램 메서드와 속성에 사용됩니다. 개체 MyObject와 그 속성은 설명 목적으로만 사용됩 니다. 만일 MyObject가 존재하
지 않거나 색 속성을 갖고 있지 않다면 오류가 발생합니다.
Dim RED, I, RGBValue, MyObject
Red = RGB(255, 0, 0) ' 빨강에 대한 값을 반환합니다.
I = 75 ' 오프셋을 초기화합니다.
RGBValue = RGB(I, 64 + I, 128 + I) ' RGB(75, 139, 203)와 같습니다.
MyObject.Color = RGB(255, 0, 0) ' 빨강에 MyObject의 색 속성을 설정합니다.
◆ Right 함수
문자열의 우측으로부터 지정된 수의 문자를 Variant(String)값으로 반환합니다.
▶ 구문 : Right(string, length)
Right 함수 구문은 다음과 같은 명명된 인수로 되어 있습니다.
구성 요소
설명
string
Length
필수. 가장 우측에 있는 문자가 반환되는 문자열 식. string에 Null값이 있으면 Null이 반환됨.
필수; Variant(Long). 반환할 문자 수를 지정하는 숫자 식 0이면 길이가 0인 문자열("")이 반환됨. string내의 문자 수보
다 크거나 같으면 문자열 전부가 반환됨.
▶ 참고 : string 내 문자 수를 파악하려면 Len 함수를 이용합니다.
▶ 메모 : 문자열 내의 바이트 정보는 RightB 함수를 이용합니다. length는 반환할 문자 수가 아니라 바이트 수를 지정합니다.
Right 함수 예제
다음은 Right 함수를 사용하여 주어진 문자열의 맨 오른쪽에서부터 지정된 문자 수 만큼을 반환하는 예제입니다.
Dim AnyString, MyStr
AnyString = "Hello World" ' 문자열 정의.
MyStr = Right(AnyString, 1) ' "d"를 반환합니다.
MyStr = Right(AnyString, 6) ' " World"를 반환합니다.
MyStr = Right(AnyString, 20) ' "Hello World"를 반환합니다.
◆ Rnd 함수
난수를 포함하는 Single을 반환합니다.
▶ 구문 : Rnd[(number)]
선택 항목인 number 인수에는 Single 또는 유효한 숫자 식을 사용합니다.
반환값
number
Rnd는 다음과 같이 생성함
음수
양수
0
없음
항상 같은 숫자이며, number를 인자값으로 사용합니다.
다음 순서의 난수입니다.
가장 최근에 생성된 숫자입니다.
다음 순서의 난수입니다..
▶ 참고 : Rnd 함수는 1보다 작은 값을 갖지만 0보다는 크거나 같습니다.
number의 값은 Rnd가 난수를 생성하는 방식을 결정해 줍니다.
주어진 초기 인자에 대하여, Rnd 함수를 계속 호출하면 그 직전의 숫자를 수열의 다음 인자로 사용하기 때문에 동일하게 숫자 배
열이 생성됩니다.
Rnd를 호출하기 전에 시스템 시계가 부여한 난수 생성기를 초기화하려면 Randomize 문장에 인수를 사용치 않고 사용합니다.
주어진 범위 내에서 난수를 발생하려면 다음 공식을 사용하십시오.
Int((상한값 - 하한값 + 1) * Rnd + 하한값)
여기서, 상한값(upperbound )이란 범위 내의 최고값이며, 하한값(lowerbound )이란 범위 내의 최저값을 뜻합니다.
▶ 메모 난수열을 발생시키려면, 숫자 인수를 보유한 Randomize를 사용하기 전에 즉시 음(-)의 인수를 가진 Rnd를 호출합니다.
number 부분에 동일한 값을 가진 Randomize를 사용하게 되면 앞서의 수열을 반복하지 않습니다.
Rnd 함수 예제
다음은 1에서 6까지의 난수 정수값을 발생시키기 위해 Rnd 함수를 사용하는 예제입니다.
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' 1과 6 사이의 난수를 발생합니다.
