vbscript: Implemented Time.
This commit is contained in:
parent
88d7f611a4
commit
fdf4b1e792
@ -1418,8 +1418,20 @@ static HRESULT Global_Date(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARI
|
|||||||
|
|
||||||
static HRESULT Global_Time(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
|
static HRESULT Global_Time(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
|
||||||
{
|
{
|
||||||
FIXME("\n");
|
SYSTEMTIME lt;
|
||||||
return E_NOTIMPL;
|
UDATE ud;
|
||||||
|
DATE time;
|
||||||
|
HRESULT hres;
|
||||||
|
|
||||||
|
TRACE("\n");
|
||||||
|
|
||||||
|
GetLocalTime(<);
|
||||||
|
ud.st = lt;
|
||||||
|
ud.wDayOfYear = 0;
|
||||||
|
hres = VarDateFromUdateEx(&ud, 0, VAR_TIMEVALUEONLY, &time);
|
||||||
|
if(FAILED(hres))
|
||||||
|
return hres;
|
||||||
|
return return_date(res, time);
|
||||||
}
|
}
|
||||||
|
|
||||||
static HRESULT Global_Day(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
|
static HRESULT Global_Day(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
|
||||||
|
@ -1238,5 +1238,6 @@ 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(Log(CByte(2))) = "VT_R8", "getVT(Log(CByte(2))) = " & getVT(Log(CByte(2))))
|
||||||
|
|
||||||
Call ok(getVT(Date) = "VT_DATE", "getVT(Date) = " & getVT(Date))
|
Call ok(getVT(Date) = "VT_DATE", "getVT(Date) = " & getVT(Date))
|
||||||
|
Call ok(getVT(Time) = "VT_DATE", "getVT(Time) = " & getVT(Time))
|
||||||
|
|
||||||
Call reportSuccess()
|
Call reportSuccess()
|
||||||
|
Loading…
x
Reference in New Issue
Block a user