急,如何把VB的时间戳转换为时间?初用vb,请各位大侠不吝赐教!

chenmoboy 2002-08-13 03:37:36
知道,在delphi中有TimeStampToDateTime函数来将时间戳类型的数据转换成时间类型的数据,在vb中我不知道该怎么找,请各位大侠知无不言,如果能给个windows 的
API也行,谢谢。
...全文
528 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
chenmoboy 2002-08-15
  • 打赏
  • 举报
回复
问题还没解决。。。
chenmoboy 2002-08-13
  • 打赏
  • 举报
回复
是不是我表达得不够清楚还是不符合vb的习惯呀?
我要的是:timestamp--->datetime 的函数或API,
至少也该有一条:timestamp---->数字字符串 ----> (cdate)datetime 的
路吧? :)
我发现能处理timestamp类型的数据的函数很少,
能提示提示我能处理timestamp的函数也行。
有发言就给分,要下班了,分数职能等明天了 :)
请大家多多帮忙。谢谢


chenmoboy 2002-08-13
  • 打赏
  • 举报
回复
恕我愚昧,不要见笑,看惯了delphi的定义方式,我怎么看不来其中那部分是时间戳变量,哪部分是时间类型的变量呀?

好像这个cdate()函数的将数字串的日期转换成时间类型不是把时间戳的类型转换成

时间类型吧?
squ1437 2002-08-13
  • 打赏
  • 举报
回复
直接FORMAT到你需要的格式阿 !
首席打杂 2002-08-13
  • 打赏
  • 举报
回复
直接看cdate的联机帮助好过..
szgw 2002-08-13
  • 打赏
  • 举报
回复
给你一个实例吧。
看看吧,此例是一个实现时间相加的实例
If MaskEdBox2.Text = "0000-00-00" Then
dd = MsgBox("请确认是否需要更改此日期", vbYesNo + vbQuestion, "提示")
If dd = vbYes Then
MaskEdBox2.SetFocus
Exit Sub
End If
If dd = vbNo Then
Exit Sub
End If
End If
If Text3.Text = "" Then
Exit Sub
End If
MaskEdBox2.Format = "yyyy-mm-dd"
d1 = CDate(MaskEdBox2.Text)
d2 = DateAdd("d", CInt(Text3), d1)
MaskEdBox3.Text = d2
chenmoboy 2002-08-13
  • 打赏
  • 举报
回复
to lily0000000(黑百合) :
能给几行代码示例吗? :)
lily0000000 2002-08-13
  • 打赏
  • 举报
回复
CDate

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧