밀리미터를 인치로 바꾸는 방법의 예제

[진이마린]

밀리미터를 인치로 바꾸는 방법의 예제 입니다.
또한 인치를 밀리미터로도 바꿀수 있죠.

모듈(mdlFunction)에다 아래와 같이 선언을 하여 줍니다.

===============================================================
Public Function Cal (How as String, Input as Double) as Double
Select Case How
Case "mm2in" '//밀리미터를 인치로.
Cal = 0.0393700787401575 * Input
Case "in2mm" '//인치를 밀리미터로.
Cal = 25.4 * Input
End Select
End Function
===============================================================

폼에서 Function을 콜하여 계산한 값을 리턴 받습니다.

===============================================================
Private Sub cmdCal_Click()
Dim Rst as Double

'// 20밀리미터를 인치로 변환
Rst = mdlFunction.Cal("mm2in", 20)
MsgBox str(Rst)

'// 8인치를 밀리미터로 변환
Rst = mdlFunction.Cal("in2mm".8)
MsgBox str(Rst)
End Sub
===============================================================