2011. 7. 31.

지정한 자리숫자만큼 앞에 0을 붙여 반환

'/**
'* 지정한 자리숫자만큼 앞에 0을 붙여 반환 
'* 
'*
'* @param intParam     : 검사할 숫자
'* @param intLimit     : 원하는 숫자길이
'*
'* @return GetZeroNumber   : 지정길이만큼 숫자앞에 0 붙여서반환
'*/
Function GetZeroNumber(ByVal intParam, ByVal intLimit)
 Dim i, strResult
 For i = 0  To intLimit
  strResult = strResult & "0"
 Next
 GetZeroNumber = Right(strResult & intParam, intLimit)
End Function

Response.Write GetZeroNumber(5, 3)    ' 005
Response.Write GetZeroNumber(70, 5)   ' 00070
Response.Write GetZeroNumber(900, 4)  ' 0900

댓글 없음:

댓글 쓰기