以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数值转换日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50034)
--  作者：Liangcai
--  发布时间：2014/4/28 12:04:00
--  数值转换日期

窗口Label1绑定双精小数,转换成天、时、分。比如：1.25转换成1天6小时00分。求代码
--  作者：Bin
--  发布时间：2014/4/28 12:10:00
--  
Dim d As Double = 1.25
Dim s() As String = d.Tostring().split(".")
If s.length > 1 Then
    MessageBox.show(s(0) & "天" & (24 * Cint(s(1))/100) & "小时00分")
Else
    MessageBox.show(s(0) & "天" & "00小时00分")
End If
--  作者：有点甜
--  发布时间：2014/4/28 12:21:00
--  

 编写一下这个控件的 DataFormat 事件，参考

 

http://www.foxtable.com/help/topics/0737.htm

 
--  作者：Liangcai
--  发布时间：2014/4/28 21:41:00
--  
谢谢