From: Shuai Meng Subject: [PATCH 1/2] vbscript: Implemented Date(try 2) Message-Id: <53F373BF.1090601@gmail.com> Date: Tue, 19 Aug 2014 23:56:47 +0800 Change log: checked the type of returned variant instead of printing it. --- dlls/vbscript/global.c | 10 ++++++++-- dlls/vbscript/tests/api.vbs | 2 ++ 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c index 98be6c1..bb2e2ff 100644 --- a/dlls/vbscript/global.c +++ b/dlls/vbscript/global.c @@ -1352,8 +1352,14 @@ static HRESULT Global_Now(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIA static HRESULT Global_Date(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) { - FIXME("\n"); - return E_NOTIMPL; + SYSTEMTIME lt; + double date; + + TRACE("\n"); + + GetLocalTime(<); + SystemTimeToVariantTime(<, &date); + return return_date(res, floor(date)); } static HRESULT Global_Time(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) diff --git a/dlls/vbscript/tests/api.vbs b/dlls/vbscript/tests/api.vbs index 4f5800d..cc0ff67 100644 --- a/dlls/vbscript/tests/api.vbs +++ b/dlls/vbscript/tests/api.vbs @@ -1043,4 +1043,6 @@ MyObject.myval = -2.5 Call ok(Int(MyObject) = -3, "Int(MyObject) = " & Int(MyObject)) Call ok(getVT(Int(MyObject)) = "VT_R8", "getVT(Int(MyObject)) = " & getVT(Int(MyObject))) +Call ok(getVT(Date) = "VT_DATE", "getVT(Date) = " & getVT(Date)) + Call reportSuccess()