Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-winehq
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Registry
Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
wine
wine-winehq
Commits
88d7f611
Commit
88d7f611
authored
Aug 26, 2014
by
Shuai Meng
Committed by
Alexandre Julliard
Aug 28, 2014
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
vbscript: Implemented Date.
parent
ad012a8a
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
16 additions
and
2 deletions
+16
-2
global.c
dlls/vbscript/global.c
+14
-2
api.vbs
dlls/vbscript/tests/api.vbs
+2
-0
No files found.
dlls/vbscript/global.c
View file @
88d7f611
...
...
@@ -1400,8 +1400,20 @@ 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
;
UDATE
ud
;
DATE
date
;
HRESULT
hres
;
TRACE
(
"
\n
"
);
GetLocalTime
(
&
lt
);
ud
.
st
=
lt
;
ud
.
wDayOfYear
=
0
;
hres
=
VarDateFromUdateEx
(
&
ud
,
0
,
VAR_DATEVALUEONLY
,
&
date
);
if
(
FAILED
(
hres
))
return
hres
;
return
return_date
(
res
,
date
);
}
static
HRESULT
Global_Time
(
vbdisp_t
*
This
,
VARIANT
*
arg
,
unsigned
args_cnt
,
VARIANT
*
res
)
...
...
dlls/vbscript/tests/api.vbs
View file @
88d7f611
...
...
@@ -1237,4 +1237,6 @@ Call ok(getVT(Log("10")) = "VT_R8", "getVT(Log(""10"")) = " & getVT(Log("10")))
Call
ok
(
Approch
(
Log
(
CByte
(
2
)),
0.6931
),
"Log(CByte(2)) = "
&
Log
(
CByte
(
2
)))
Call
ok
(
getVT
(
Log
(
CByte
(
2
)))
=
"VT_R8"
,
"getVT(Log(CByte(2))) = "
&
getVT
(
Log
(
CByte
(
2
))))
Call
ok
(
getVT
(
Date
)
=
"VT_DATE"
,
"getVT(Date) = "
&
getVT
(
Date
))
Call
reportSuccess
()
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment