유용한 함수(간편한 IF함수)3
Posted by Albert 4932Day 21Hour 12Min 21Sec ago [2011-10-18]
'---------------------------------------------------
' 간편한 IF문 처리
' IIF(조건, 참일때값, 거짓을때값)
'---------------------------------------------------
Function getif(ByVal blnExp, varTrueVal, varFalseVal)
If blnExp Then
getif = varTrueVal
Else
getif = varFalseVal
End If
End Function
'------------------------------------------------------
' 랜덤값 가져오기 intvalue 는 랜덤으로 가져올 길이수
'------------------------------------------------------
Function randompw(intvalue)
str = ""
Randomize()
For cnt=1 To intvalue
flg = Int(Rnd()*10)
If flg > 5 Then
tStr = Int(Rnd() * 10)
Else
tStr = Int(Rnd() * 26)
tStr = Chr(Asc("a") + tStr)
End If
str = str & tStr
Next
randompw = str
End Function
'---------------------------------------------
Function random(ByVal strlen) '// 랜덤 문자생성
'---------------------------------------------
Dim str, r, i, ds, serialCode '변수 선언
str = "abcdefghijklmnopqrstuvwxyz0123456789" '랜덤으로 선택된 문자or 숫자
If strlen = "" Then strlen = 10 '출력될 값의 자릿수 ex)해당 구문에서 10자리의 랜덤 값 출력
Randomize '랜덤 초기화
For i = 1 To strlen
r = Int((36 - 1 + 1) * Rnd + 1) ' 36은 str의 문자갯수
serialCode = serialCode + Mid(str,r,1)
Next
random = serialCode
End Function