水晶报表 给一个秒数算出时间

[jwy0126]

比如说我给一个秒数 值60 ，水晶报表如何用函数计算出 0小时1分钟0秒，要这种效果。

[jwy0126]

我是准备用取余的方法，有没有更好的方法呢？

[jwy0126]

Dim h as number
Dim m as number
Dim s as number
Dim temp1 as number

s = {DeviceCountTable.RunTimes} % 60
temp1 = {DeviceCountTable.RunTimes} / 60

m = temp1 % 60
h = temp1 / 60
这样写的在水晶报表通不过，如何写呢？

[东莞寻香苑]

WhileReadingRecords;
NumberVar h:=0;
NumberVar m:=0;
NumberVar s:=0;
NumberVar temp:=0;
s:= {DeviceCountTable.RunTimes} mod 60;
temp:={DeviceCountTable.RunTimes}/60;
m:=temp mod 60;
temp:=m/60;
h :=m mod 60;
ToText (h) +":"+ ToText(m)+":"+ToText(s)

请确定DeviceCountTable.RunTimes是数值类型的,不然要转换
最后一句返回的这个时间

[jwy0126]

EN，谢谢。

[jwy0126]

你的方法并不能显示成 8小时10分钟10秒钟格式，我已经把RunTime用CDbL转换了。你的方法转换后有小数点。

[阿双2009]

numberVar h;
numberVar m;
numberVar s;

numberVar t := 90;

h := t / 3600;
m := t / 60;
s := t mod 60;

CStr(Truncate(h),0) + '小时' + CStr(Truncate(m),0) + '分钟' + CStr(s,0) + '秒'

这是在“Crystal语法”下写的。

[东莞寻香苑]

WhileReadingRecords;
NumberVar h:=0;
NumberVar m:=0;
NumberVar s:=0;
NumberVar temp:=0;
s:= {DeviceCountTable.RunTimes} mod 60;
temp:={DeviceCountTable.RunTimes}\60;
m:=temp mod 60;
temp:=temp\60;
h :=temp mod 60;
ToText (h) +"小时"+ ToText(m)+"分钟"+ToText(s)+"秒"

现在可以了

[东莞寻香苑]

[Quote=引用 6 楼 luols 的回复:]

C# code

numberVar h;
numberVar m;
numberVar s;

numberVar t := 90;

h := t / 3600;
m := t / 60;
s := t mod 60;

CStr(Truncate(h),0) + '小时' + CStr(Truncate(m),0) + '分钟' + CStr(s,0) + '秒'



这是在“Cr……
[/Quote]

这个分钟计算的不对,可能会大于60

[阿双2009]

[Quote=引用 8 楼 csui2008 的回复:]
这个分钟计算的不对,可能会大于60
[/Quote]

呵呵，你试下就知道了

[阿双2009]

[Quote=引用 8 楼 csui2008 的回复:]
这个分钟计算的不对,可能会大于60
[/Quote]

嗯，不好意思，谢谢csui2008指正！！
应该改正如下

numberVar h;
numberVar m;
numberVar s;

numberVar t := 3800;

h := t / 3600;
m := (t / 60) mod 60;
s := t mod 60;

CStr(Truncate(h),0) + '小时' + CStr(Truncate(m),0) + '分钟' + CStr(s,0) + '秒'

再次感谢指正！！！

[阿双2009]

h := t / 3600;
m := Truncate(t / 60) mod 60;
s := t mod 60;

CStr(Truncate(h),0) + '小时' + CStr(m,0) + '分钟' + CStr(s,0) + '秒'

再次修改，看来以后得好好像测试部的人学习。
Thank csui2008 again..

[东莞寻香苑]

[Quote=引用 11 楼 luols 的回复:]

h := t / 3600;
m := Truncate(t / 60) mod 60;
s := t mod 60;

CStr(Truncate(h),0) + '小时' + CStr(m,0) + '分钟' + CStr(s,0) + '秒'

再次修改，看来以后得好好像测试部的人学习。
[/Quote]
我也是一样感谢你,你的程序更简单
我在你的基础改写了
numberVar h;
numberVar m;
numberVar s;
numberVar t := {DeviceCountTable.RunTimes};
h := t \ 3600;
m := t \ 60 mod 60;
s := t mod 60;
CStr(h) + '小时' + CStr(m) + '分钟' + CStr(s) + '秒'

[jwy0126]

以上均感谢。