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

问题： 请问怎么将组件中的SYSTEMTIME中的DATE和TIME传到VB中去？
描述:

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

---

解决方案1:

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

解决方案2:

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

解决方案3:

两个是同时传递的
它传递的是一个双精度浮点，整数部分是以天来计算，而小数部分就是时间，例如2.5那么就代表了2天12个小时，10.25就代表了10天6个小时，不过它的精度只能达到秒级，不能到达微秒级别。