怎样把1.56转换成1'56"

往事如烟 · 发表于 2010-1-10 02:48:25

如题，我现在需要在asp 中把数据 1.56 转换成时间格式：1'56"

亚提斯 · 发表于 2010-1-10 02:48:28

Function Conv2Time(Time_in_num)
Time_in_num=CStr(Time_in_num)
Time_in_num=Replace(Time_in_num,".","'")
If Not Instr(Time_in_num,"'") Then Time_in_num=Time_in_num & "'"
If Right(Time_in_num,1)<>"'" Then Time_in_num=Time_in_num & """"
Conv2Time=Time_in_num
End Function

无敌美少女 · 发表于 2010-1-10 02:48:34

<%
function time(str) '转换函数
dim s,s1,s2
s=str
s1=split(s,".")
s2=s1(0)&"'"&s1(1)&""""
time=s2
end function
'调用函数
dim str
str="1.56"
response.write time(str)
%>

为爱种菜！ · 发表于 2010-1-10 02:48:43

我先试一下！

爱人好难a · 发表于 2010-1-10 02:48:47

那更方便，取整得到分，小数部分乘上100得到秒，连起来。

陈君 · 发表于 2010-1-10 02:48:50

第二种方法多了对整分的判断
但还有个问题：
从access数据库中读 1.5出来只能转换成1'5" 这和1'05"是相等的，即和1.05相等
怎样才能让它转换成 1'50" ？

		自动登录	找回密码
密码			注册