怎样把1.56转换成1'56"

huhexian 发布于 2008-05-19 14:31， 507 次点击

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

5 回复

tianyu1232008-05-19 14:50

写个函数即可

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

huhexian2008-05-19 21:50

多谢~！

我先试一下！

multiple19022008-05-19 21:57

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

huhexian2008-05-19 23:19

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

multiple19022008-05-20 16:42

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

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