LngC = date2 - date1
StrTemp = LngC / 3600 & ": " & (LngC Mod 3600) / 60 & ": " & LngC Mod (3600 * 60)
LVA.ListItems(LVA.ListItems.Count).SubItems(1) = StrTemp
StrTemp = LngB / 3600 & ": " & (LngB Mod 3600) / 60 & ": " & LngB Mod (3600 * 60)
LVA.ListItems(LVA.ListItems.Count).SubItems(2) = StrTemp
StrTemp = LngC / 3600 & ": " & (LngC Mod 3600) / 60 & ": " & LngC Mod (3600 * 60)
LVA.ListItems(LVA.ListItems.Count).SubItems(3) = StrTemp
LVA.ListItems(LVA.ListItems.Count).SubItems(4) = LngA
LVA.ListItems(LVA.ListItems.Count).SubItems(5) = LngA / LngB / (3600 * 1000)
End If
.MoveNext
Next
Screen.MousePointer = 0
End With
请问这样的把数据展现到程序面板上吗
StrTemp = LngC / 3600 & ": " & (LngC Mod 3600) / 60 & ": " & LngC Mod (3600 * 60)
LVA.ListItems(LVA.ListItems.Count).SubItems(1) = StrTemp
StrTemp = LngB / 3600 & ": " & (LngB Mod 3600) / 60 & ": " & LngB Mod (3600 * 60)
LVA.ListItems(LVA.ListItems.Count).SubItems(2) = StrTemp
StrTemp = LngC / 3600 & ": " & (LngC Mod 3600) / 60 & ": " & LngC Mod (3600 * 60)
LVA.ListItems(LVA.ListItems.Count).SubItems(3) = StrTemp
LVA.ListItems(LVA.ListItems.Count).SubItems(4) = LngA
LVA.ListItems(LVA.ListItems.Count).SubItems(5) = LngA / LngB / (3600 * 1000)
End If
.MoveNext
Next
Screen.MousePointer = 0
End With
请问这样的把数据展现到程序面板上吗
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货