3,245
社区成员
发帖
与我相关
我的任务
分享请问怎么将组件中的SYSTEMTIME中的DATE和TIME传到VB中去？
在组件的实现中定义了一个SYSTEMTIME类型的变量，现在要将它中的日期和时间作为属性传到VB中去，不知如何实现？
只知道DATE可以传出去，可以通过SystemTimeToVariantTime(),不知TIME如何传出去呢？
或者两者可以同时传出去呢？
望指教。多谢了
只知道DATE可以传出去，可以通过SystemTimeToVariantTime(),不知TIME如何传出去呢？
或者两者可以同时传出去呢？
望指教。多谢了
...全文
请发表友善的回复…
发表回复
woshixuchang 2003-08-21
- 打赏
- 举报
多谢了
darkxiao 2003-08-21
- 打赏
- 举报
-_-! 没有了，很方便了啊
例如变量使i
total = MOD(INT(i*24*60*60),24*60*60)
hour = INT(total/3600)
minute = INT(total/60 - hour*60)
secend = INT(total - hour*3600 - minute*60)
例如变量使i
total = MOD(INT(i*24*60*60),24*60*60)
hour = INT(total/3600)
minute = INT(total/60 - hour*60)
secend = INT(total - hour*3600 - minute*60)
qgw_2000 2003-08-21
- 打赏
- 举报
SystemTimeToVariantTime(),返回出去一个double型的指针，
在VB中用这个返回值就行了。
以下是VB用法：
dim d as Date
d= Object.date
text1.text= d//显示出来就有时间和日期
//其中Object.date是返回那个double型指针的属性
在VB中用这个返回值就行了。
以下是VB用法：
dim d as Date
d= Object.date
text1.text= d//显示出来就有时间和日期
//其中Object.date是返回那个double型指针的属性
woshixuchang 2003-08-21
- 打赏
- 举报
有没有方便点的？？
darkxiao 2003-08-21
- 打赏
- 举报
两个是同时传递的
它传递的是一个双精度浮点，整数部分是以天来计算，而小数部分就是时间，例如2.5那么就代表了2天12个小时，10.25就代表了10天6个小时，不过它的精度只能达到秒级，不能到达微秒级别。
它传递的是一个双精度浮点，整数部分是以天来计算，而小数部分就是时间，例如2.5那么就代表了2天12个小时，10.25就代表了10天6个小时，不过它的精度只能达到秒级，不能到达微秒级别。
