以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在动态栏显示时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58927)
--  作者：一笑
--  发布时间：2014/10/26 18:38:00
--  如何在动态栏显示时间
专家：
参考帮助，在动态栏显示航段数和时间，但时间显示是秒，不方便，能否显示成小时：分钟格式，代码和截图如下，谢谢。

图片点击可在新窗口打开查看此主题相关图片如下：动态栏_1.png
图片点击可在新窗口打开查看

Dim flt As String = "机号 = \'" & Tables("八月时间").Current("机号") & "\'"
Dim cnt As Integer = DataTables("八月时间").Compute("Count([_Identify])",flt)
Dim sum As Integer = DataTables("八月时间").Compute("Sum([空时])",flt)
StatusBar.Message1 = "航段:" & cnt & "  空时:" & sum
--  作者：有点甜
--  发布时间：2014/10/26 19:03:00
--  
Dim flt As String = "机号 = \'" & Tables("八月时间").Current("机号") & "\'"
Dim cnt As Integer = DataTables("八月时间").Compute("Count([_Identify])",flt)
Dim sum As Integer = DataTables("八月时间").Compute("Sum([空时])",flt)
StatusBar.Message1 = "航段:" & cnt & "  空时:" & (sum \\ 3600) & ":" & ((sum Mod 3600) \\ 60)