■ 아래 한글의 단위를 구하는 방법을 보여준다.
▶ 예제 코드 (VB)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
'-------------------------------------------------- ' 아래 한글 단위 구하기 '-------------------------------------------------- ' dMilimeter : 밀리미터 ' 반환값 : 아래 한글 단위 '-------------------------------------------------- Public Function HWPGetUnit(dMilimeter As Double) As Long HWPGetUnit = Round(dMilimeter * 283.465) End Function |