ASP中如何去一个值的第一个字母？
有Val=5.8679,请问如何取第一个字符5的函数是什么，谢谢？
0.5678从数据库中去出来，变成了.5678.
问题点数：20、回复次数：9Top
1 楼junsisi（君三思）回复于 2003-08-04 16:57:34 得分 5
<%
str="0.5678"
str=right(str,len(str)-1)
response.write str
%>Top
2 楼ling_l（灵龙）回复于 2003-08-04 16:59:26 得分 0
你是数字型的还是字符型的啊，如果是字符型的，可以用left（val,1)取得，如果是数字，有没有四舍五入的要求？Top
3 楼xuya（图梦）回复于 2003-08-04 17:00:00 得分 0
s=left(Val,0,1)Top
4 楼cqfeng（）回复于 2003-08-04 17:00:17 得分 5
a = left(cstr(val),1)
if a="." then
a="0"
end if
response.write aTop
5 楼liuyann（liuyann）回复于 2003-08-04 17:01:29 得分 0
left(FormatNumber(nVal),1)Top
6 楼fengchu2（凤雏）回复于 2003-08-04 17:02:21 得分 5
<%
str="0.5678"
str=mid(str,2,len(str)-1)
response.write str
%>
Top
7 楼zhanming345（杰妮宝宝）回复于 2003-08-04 17:09:04 得分 0
a=mid(cstr(5.1234),1,1)
得5
str=".1234"
a=mid(cstr(str),1,1)
if a="." then
a="0"
b=a & ".1234"
response.write b
end ifTop
8 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2003-08-04 17:23:06 得分 0
val是关键字，你不能用它做变量
left()
mid()
都可以达到你的目的
Top
9 楼lvjack（追逐梦想）回复于 2003-08-04 17:37:59 得分 5
同意 cqfeng()
第二个问题
FormatNumber 函数
--------------------------------------------------------------------------------
描述
返回表达式，此表达式已被格式化为数值。
语法
FormatNumber(expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
FormatNumber 函数的语法有以下参数：
参数 描述
expression 必选。要被格式化的表达式。
NumDigitsAfterDecimal 可选。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。
IncludeLeadingDigit 可选。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。
UseParensForNegativeNumbers 可选。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。
GroupDigits 可选。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。
设置
IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：
常数 值 描述
TristateTrue -1 True
TristateFalse 0 False
TristateUseDefault -2 使用计算机区域设置中的设置。
说明
当省略一个或多个可选参数时，由计算机区域设置提供被省略参数的值。
--------------------------------------------------------------------------------
注意 所有设置信息均取自区域设置的“数字”附签。
--------------------------------------------------------------------------------
下面例子利用 FormatNumber 函数把数值格式化为带四位小数点的数:
Function FormatNumberDemo
Dim MyAngle, MySecant, MyNumber
MyAngle = 1.3 ' 用弧度定义角。
MySecant = 1 / Cos(MyAngle) ' 计算正割值。
FormatNumberDemo = FormatNumber(MySecant,4) ' 把 MySecant 格式化为带四位小数点的数。
End Function
Top
