请问怎么将组件中的SYSTEMTIME中的DATE和TIME传到VB中去？

Question

在组件的实现中定义了一个SYSTEMTIME类型的变量，现在要将它中的日期和时间作为属性传到VB中去，不知如何实现？
   只知道DATE可以传出去，可以通过SystemTimeToVariantTime(),不知TIME如何传出去呢？
   或者两者可以同时传出去呢？
   望指教。多谢了

Answer 1

SystemTimeToVariantTime(),返回出去一个double型的指针，
在VB中用这个返回值就行了。
以下是VB用法：
dim d as Date
d= Object.date
text1.text= d//显示出来就有时间和日期
//其中Object.date是返回那个double型指针的属性

Answer 2

-_-! 没有了，很方便了啊
例如变量使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)