Foxtable(狐表)用户栏目专家坐堂 → 数值转换日期


  共有3104人关注过本帖树形打印复制链接

主题:数值转换日期

帅哥哟,离线,有人找我吗?
Liangcai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2541 威望:0 精华:0 注册:2011/9/24 13:30:00
数值转换日期  发帖心情 Post By:2014/4/28 12:04:00 [只看该作者]

窗口Label1绑定双精小数,转换成天、时、分。比如:1.25转换成1天6小时00分。求代码


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 12:21:00 [只看该作者]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
Liangcai
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2541 威望:0 精华:0 注册:2011/9/24 13:30:00
  发帖心情 Post By:2014/4/28 21:41:00 [只看该作者]

谢谢

 回到顶部