From: Shuai Meng <mengshuaicalendr@gmail.com>
Subject: [PATCH 03/10] vbscript: Implemented CCur
Message-Id: <5351E29C.4010807@gmail.com>
Date: Sat, 19 Apr 2014 10:42:36 +0800

---
  dlls/vbscript/global.c | 8 ++++++--
  1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c
index 9ed7c94..14abdb9 100644
--- a/dlls/vbscript/global.c
+++ b/dlls/vbscript/global.c
@@ -375,8 +375,12 @@ static HRESULT show_msgbox(script_ctx_t *ctx, BSTR prompt, VARIANT *res)
 
 static HRESULT Global_CCur(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    TRACE("%s\n", debugstr_variant(arg));
+
+    assert(args_cnt == 1);
+
+    V_VT(res) = VT_EMPTY;
+    return VariantChangeType(res, arg, VARIANT_LOCALBOOL, VT_CY);
 }
 
 static HRESULT Global_CInt(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)