VBA 如何计算SQL 中的 datetime数据类型 日期 时间

获取数据
已经获取到datetime数据类型的其中一条数据为 1900-1-1 16:20:26
MDT=1900-1-1 16:20:26

首先第一个问题

如何获取SQL 中的 datetime数据类型 日期
要求返回内容： MD = 1900-1-1

如何获取SQL 中的 datetime数据类型 时间
要求返回内容： MT = 16:20:26

第二个问题
'首先获取现在的时间 然后和 datetime里的时间与现在的做比较。

如何得出 datetime里的时间 减去 现在的时间的结果？

有datetime和smalldatetime两种格式的日期时间数据类型，如下：
　　1、datetime
　　数据库内部用两个4字节的整数存储datetime数据类型的值。
　　第一个4字节存储基础日期（即1900-1-1, base date）之前或之后的日期。

MDT= "1900-1-1 16:20:26" MD = format(MDT,"yyyy-m-d") 'MD = 1900-1-1 MT = format(MDT,"hh:mm:ss") 'MT = 16:20:26 Mydate = Now() 'Mydate = 2011-7-2 16:54:39 DateDiff("YYYY", MDT, Mydate) '返回整年数 DateDiff("M", MDT, Mydate) '返回整月数 DateDiff("D", MDT, Mydate) '返回整天数