use Win32::OLE::Variant;

print Variant(VT_DATE, '2000-01-01') # print 2000-01-01
print Variant(VT_DATE, '2000-01-01 10:00') #ditto