Visual Basic 함수정리(C)

출처 : http://blog.naver.com/chchcom?Redirect=Log&logNo=3156879

◆ CBool

 

 문자열 식이나 숫자 식을  Boolean형을 변환한다.

 

 ▶ 구문 :

 

 CBool(expression)

 

 ▶ 예제

 

 Dim A, B, Check
 A = 5: B = 5                ' 변수를 초기화합니다.
 Check = CBool(A = B)     ' Check이 True를 포함합니다.
 A = 0    ' Define variable.
 Check = CBool(A)          ' Check이 False를 포함합니다.

 

◆ CByte

 

 문자열 식이나 숫자 식을  Byte형을 변환한다.

 

 ▶ 구문 :

 

 CByte(expression)

 

 ▶ 예제

 

 Dim MyDouble, MyByte
 MyDouble = 125.5678             ' MyDouble이 Double입니다.
 MyByte = CByte(MyDouble)    ' MyByte가 126을 포함합니다.

 

◆ CCur

 

 문자열 식이나 숫자 식을  Currency형을 변환한다.

 

 ▶ 구문 :

 

 CCur(expression)

 

 ▶ 예제

 

 Dim MyDouble, MyCurr
 MyDouble = 543.214588            ' MyDouble은 Double입니다.
 MyCurr = CCur(MyDouble * 2) ' MyDouble * 2의 결과를 Currency(1086.4292)로 변환합니다.

 

◆ CDate

 

 문자열 식이나 숫자 식을  Date형을 변환한다.

 

 ▶ 구문 :

 

 CDate(expression)

 

 - IsDate 함수문은 date를 날짜나 시간으로 변환할 수 있는지 검사할 때 사용합니다

 

 ▶ 예제

 

 Dim MyDate, MyShortDate, MyTime, MyShortTime
 MyDate = "February 12, 1969"    ' 날짜를 정의합니다.
 MyShortDate = CDate(MyDate)    ' 날짜 데이터 형식을 변환합니다.
 MyTime = "4:35:47 PM"             ' 시간을 정의합니다.
 MyShortTime = CDate(MyTime)    ' 날짜 데이터 형식을 변환합니다.

 

◆ CDbl

 

 문자열 식이나 숫자 식을  Double형을 변환한다.

 

 ▶ 구문 :

 

 CDbl(expression)

 

 ▶ 예제

 

 Dim MyCurr, MyDouble
 MyCurr = CCur(234.456784)                      ' MyCurr는 Currency입니다.
 MyDouble = CDbl(MyCurr * 8.2 * 0.01)    ' 결과를 Double로 변환합니다.

 

◆ CDec

 

 문자열 식이나 숫자 식을  Decimal형을 변환한다.

 

 ▶ 구문 :

 

 CDec(expression)

 

 ▶ 예제

 

◆ CInt

 

 문자열 식이나 숫자 식을  Integer형을 변환한다.

 

 ▶ 구문 :

 

 CInt(expression)

 

 ▶ 예제

 

 Dim MyDouble, MyInt
 MyDouble = 2345.5678    ' MyDouble은 Double입니다.
 MyInt = CInt(MyDouble)    ' MyInt는 2346을 포함합니다.

◆ CLng

 

 문자열 식이나 숫자 식을  Long형을 변환한다.

 

 ▶ 구문 :

 

 CLng(expression)

 

 ▶ 예제

 

 Dim MyVal1, MyVal2, MyLong1, MyLong2
 MyVal1 = 25427.45: MyVal2 = 25427.55    ' MyVal1, MyVal2는 Double입니다.
 MyLong1 = CLng(MyVal1)                      ' MyLong1이 25427을 포함합니다.
 MyLong2 = CLng(MyVal2)                   ' MyLong2이 25428을 포함합니다.

 

◆ CSng

 

 문자열 식이나 숫자 식을  Single형을 변환한다.

 

 ▶ 구문 :

 

 CSng(expression)

 

 ▶ 예제

 

 Dim MyDouble1, MyDouble2, MySingle1, MySingle2

 MyDouble1 = 75.3421115

 MyDouble2 = 75.3421555
 MySingle1 = CSng(MyDouble1)                      ' MySingle1이 75.34211을 포함합니다.
 MySingle2 = CSng(MyDouble2)                     ' MySingle2이 75.34216을 포함합니다.

 

◆ CStr

 

 문자열 식이나 숫자 식을  String형을 변환한다.

 

 ▶ 구문 :

 

 CStr(expression)

 

 ▶ 예제

 

 Dim MyDouble, MyString
 MyDouble = 437.324            ' MyDouble은 Double입니다.
 MyString = CStr(MyDouble)     ' MyString이 "437.324"을 포함합니다.

 

◆ CVar

 

 문자열 식이나 숫자 식을  Variant형을 변환한다.

 

 ▶ 구문 :

 

 CVar(expression)

 

 ▶ 예제

 

 Dim MyInt, MyVar
 MyInt = 4534                      ' MyInt는 정수입니다.
 MyVar = CVar(MyInt & "000")    ' MyVar가 문자열 4534000을 포함합니다.

 

◆ Choose 함수

 

 인수 목록에서 값을 선택하고 반환하는 경우 사용합니다.

 

 ▶ 구문 :

 

 Choose(index, choice-1 [,choice -2, ... [,choice -n]])

 

 - Choose는 index 값에 따라 선택 목록에서 하나의 값을 반환합니다.

   ( 만일 index가 2인 경우 목록의 두 번째 값을 반환합니다. )

 

 ▶ 예제

 

 Dim MyChoose, Index

 Index = 2

 MyChoose = Choose(Index, "Speedy", "United", "Federal")

 ' MyChoose는 "United"을 포함합니다.

 

◆ Chr 함수

 

 지정된 문자 코드와 관련 있는 문자가 포함된 String 값을 반환합니다.

 

 ▶ 구문 :

 

 Chr(charcode)

 

 - charcode의 표준 범위는 0부터 255까지 입니다.

 

 ▶ 예제

 

 Dim MyChar
 MyChar = Chr(65)      ' A를 반환합니다.
 MyChar = Chr(97)      ' a를 반환합니다.
 MyChar = Chr(62)      ' >를 반환합니다.
 MyChar = Chr(37)      ' %를 반환합니다.

 

◆ Cos 함수

 

 특정한 각의 코사인 값을 지정하는 Double을 반환합니다.

 

 ▶ 구문 :

 

 Cos(number)

 

 ▶ 예제

 

 Dim MyAngle, MySecant
 MyAngle = 1.3         '라디안값의 각을 정의합니다.
 MySecant = 1 / Cos(MyAngle)    '세컨트(secant)를 계산합니다.

 

◆ CreateObject 함수

 

 ActiveX 개체에 대한 참조를 만들거나 반환합니다.

 

 ▶ 구문 :

 

 CreateObject(class)

 

 ▶ 예제

 

 예제 1

 

 Dim ExcelSheet As Object
 Set ExcelSheet = CreateObject("Excel.Sheet")
 ExcelSheet.Application.Visible = True      ' Application 개체로 Make Excel을 표시합니다.
 ExcelSheet.Cells(1, 1).Value = "A열,1행입니다."    ' 시트의 첫 번째 셀에 문자열을 넣습니다.
 ExcelSheet.SaveAs "C:\ TEST.DOC"    ' 시트를 C:\test.doc 디렉토리에 저장합니다.
 ExcelSheet.Application.Quit    ' Application 개체의 Quit 메서드로 Excel을 닫습니다.
 Set ExcelSheet = Nothing    ' 개체 변수를 해제합니다.

 

예제 2

 

 Dim xlApp As Excel.Application 
 Dim xlBook As Excel.Workbook
 Dim xlSheet As Excel.WorkSheet
 Set xlApp = CreateObject("Excel.Application")
 Set xlBook = xlApp.Workbooks.Add
 Set xlSheet = xlBook.Worksheets(1)

 

◆ CurDir 함수

 

 현재 경로를 나타내는 Variant (String)를 반환합니다.

 

 ▶ 구문 :

 

 CurDir[(drive)]

 

 - 드라이브를 지정하지 않거나 길이가 0인 문자열("")이면 현재 드라이브의 경로를 반환합니다.

 

 ▶ 예제

 

 ' C 드라이브에 현재 경로는 "C:\WINDOWS\SYSTEM"로 가정합니다.
 ' D 드라이브에 현재 경로는 "D:\EXCEL"로 가정합니다.
 ' C가 현재 드라이브라고 가정합니다.
 Dim MyPath
 MyPath = CurDir           ' "C:\WINDOWS\SYSTEM"을 반환합니다.
 MyPath = CurDir("C")    ' "C:\WINDOWS\SYSTEM"을 반환합니다.
 MyPath = CurDir("D")    ' "D:\EXCEL"을 반환합니다.

 

◆ CVErr 함수

 

 사용자가 지정한 오류 번호를 포함하는 Error 하위 형식의 Variant를 반환합니다.

 

 ▶ 구문 :

 

 CVErr(errornumber)

 

 - errornumber 인수는 적절한 오류 번호이어야 합니다.

 

 ▶ 예제

 

 Sub Test()                         ' 오류 발생 인수를 가지고 CalculateDouble을 호출합니다.
   Debug.Print CalculateDouble("345.45robert")
 End Sub
 Function CalculateDouble(Number)    ' CalculateDouble Function 프로시저를 정의합니다.
   If IsNumeric(Number) Then
     CalculateDouble = Number * 2    ' 결과를 반환합니다.
   Else
     CalculateDouble = CVErr(2001)    ' 사용자정의 오류 번호를 반환합니다.
   End If
 End Function