[ASP] 숫자관련함수

- 숫자 확인후 3자리마다 , 해주고 숫자가 아니면 문자 그대로 보내줌

Function ChkNumericToValue(CheckValue)
	If ISNumeric(CheckValue) Then
		ChkNumericToValue = FormatNumber(CheckValue,0)
	Else
		ChkNumericToValue = CheckValue
	End If
End Function

- Comma 뺀 숫자만 추출

Function ChkToMComma(CheckValue)
	dim CheckMomma
	If Len(CheckValue) > 0 Then
		CheckValue  = replace(CheckValue, ",","")
		ChkToMComma = CheckValue
	Else
		ChkToMComma = ""
	End If
End Function

- 용량 단위 환산

Function Num_Unit(str) 
	Num= CDbl(str)

	If Len(Num)>9 then
		Num=Num/1024/1024/1024
		Unit="Gb"
	Elseif Len(Num)>6 Then
		Num=Num/1024/1024
		Unit="Mb"
	Elseif Len(Num)>3 Then
		Num=Num/1024
		Unit="Kb"
	Else
		Unit=""
	End If

	Num_Unit=FormatNumber(Num,2)&Unit

End Function