如题，我现在需要在asp 中把数据 1.56 转换成时间格式：1'56"
请问该怎么做？谢谢各位！

<%
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)
%>

我先试一下！

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

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

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

[[it] 本帖最后由 multiple1902 于 2008-5-20 16:43 编辑 [/it]]