40 lines
1.6 KiB
Plaintext
40 lines
1.6 KiB
Plaintext
<%
|
|
Private Function StandardToMetric(ByVal StandardMeasure, _
|
|
ByVal Conversion, ByVal ExtensionType)
|
|
Dim tmp, multiplier, extension, ext
|
|
Select Case UCase( Conversion )
|
|
Case "IN-CM" : multiplier = 2.54 : _
|
|
extension = "centimeters" : ext = "cm"
|
|
Case "FT-CM" : multiplier = 30.48 : _
|
|
extension = "centimeters" : ext = "cm"
|
|
Case "IN-M" : multiplier = 0.00254 : _
|
|
extension = "meters" : ext = "m"
|
|
Case "YD-M" : multiplier = 0.914 : _
|
|
extension = "meters" : ext = "m"
|
|
Case "MI-KM" : multiplier = 1.609 : _
|
|
extension = "kilometers" : ext = "km"
|
|
Case "OZ-G" : multiplier = 28.35 : _
|
|
extension = "grams" : ext = "g"
|
|
Case "LBS-G" : multiplier = 453.59 : _
|
|
extension = "grams" : ext = "g"
|
|
Case "OZ-KG" : multiplier = 0.028 : _
|
|
extension = "kilograms" : ext = "kg"
|
|
Case "LBS-KG" : multiplier = 0.454 : _
|
|
extension = "kilograms" : ext = "kg"
|
|
Case "PT-L" : multiplier = 0.473 : _
|
|
extension = "liters" : ext = "L"
|
|
Case "QT-L" : multiplier = 0.946 : _
|
|
extension = "liters" : ext = "L"
|
|
Case "GAL-L" : multiplier = 3.785 : _
|
|
extension = "liters" : ext = "L"
|
|
End Select
|
|
tmp = FormatNumber(multiplier * StandardMeasure, 2)
|
|
Select Case CInt(ExtensionType)
|
|
Case 0 : tmp = Trim( tmp )
|
|
Case 1 : tmp = tmp & " " & ext
|
|
Case 2 : tmp = tmp & " " & extension
|
|
Case Else : tmp = Trim( tmp )
|
|
End Select
|
|
StandardToMetric = tmp
|
|
End Function
|
|
%> |