From: Shuai Meng Subject: [PATCH 1/2] vbscript: Implemented Date Message-Id: <53E740C6.4080207@gmail.com> Date: Sun, 10 Aug 2014 17:52:06 +0800 --- 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 dc41db5..d8ec783 100644 --- a/dlls/vbscript/global.c +++ b/dlls/vbscript/global.c @@ -1322,8 +1322,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 fbf252a..25ac571 100644 --- a/dlls/vbscript/tests/api.vbs +++ b/dlls/vbscript/tests/api.vbs @@ -984,4 +984,6 @@ End Sub Call testAbsError("strings", 13, 13) Call testAbsError(-4, 0, 0) +Call trace(CStr(Date)) + Call reportSuccess()