不是 有 函数嘛？
公司主营业务：网站建设、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出寿宁免费做网站回馈大家。
now() 就是 吧
取得 后 再 分离出你所需的，分别赋值 就行了，当然 还是 有 函数的
在应用开发中，开发人员经常要进行各种各样的日期处理。如果你需要一种简单的方法来计算出给定两个日期间的天数，不妨考虑使用VB.NET中的TimeSpan对象。
关于列表A的一些说明
首先，我们声明一个Date类型的变量dtStartDate，并赋初值为2007年一月一日。同时，还声明了其它一些将会用到的变量，包括：TimeSpan的一个实例tsTimeSpan，整型数iNumberOfDays，字符串型变量strMsgText。设定变量tsTimeSpan的值为当前日期/时间值与dtStartDate值得差。
为了计算出当前日期/时间（Now）与dtStartDate之间的天数，我们使用TimeSpan对象的Days属性，设定它的值为iNumberOfDays 。
Dim dt as Date
Dim s="2009-12-32"
if NOT Date.TryPhrase(s,dt) then
'日期无效代码
end if
