diff --git a/packages/rtl-objpas/src/inc/varutilh.inc b/packages/rtl-objpas/src/inc/varutilh.inc index ed68642e39..89a7c24054 100644 --- a/packages/rtl-objpas/src/inc/varutilh.inc +++ b/packages/rtl-objpas/src/inc/varutilh.inc @@ -73,6 +73,11 @@ function VariantToWideString(const VargSrc : TVarData) : WideString; function VariantToAnsiString(const VargSrc : TVarData) : AnsiString; function VariantToShortString(const VargSrc : TVarData) : ShortString; +{$ifdef MSWINDOWS} +function VarDateFromStr(const strIn: POleStr; alcid: DWORD; dwFlags: Longint; out dateOut: Double): HRESULT; stdcall; overload; +function VarDateFromStr(const strIn: POleStr; alcid: DWORD; dwFlags: Longint; out dateOut: TDateTime): HRESULT; stdcall; overload; +{$endif} + {Debug routines } procedure DumpVariant(const VSrc : Variant); procedure DumpVariant(const aName: string; const VSrc : Variant); diff --git a/packages/rtl-objpas/src/win/varutils.pp b/packages/rtl-objpas/src/win/varutils.pp index f46edf81de..8cff79a8b7 100644 --- a/packages/rtl-objpas/src/win/varutils.pp +++ b/packages/rtl-objpas/src/win/varutils.pp @@ -23,7 +23,7 @@ Unit varutils; Interface -Uses sysutils; +Uses sysutils,Types; {$i varutilh.inc} @@ -69,4 +69,7 @@ function SafeArrayRedim(psa: PVarArray; const NewBound: TVarArrayBound): HRESULT function SafeArrayUnaccessData(psa: PVarArray): HRESULT; stdcall;external oleaut; function SafeArrayUnlock(psa: PVarArray): HRESULT; stdcall;external oleaut; +function VarDateFromStr(const strIn: POleStr; alcid: DWORD; dwFlags: Longint; out dateOut: Double): HRESULT; stdcall; external oleaut; overload; +function VarDateFromStr(const strIn: POleStr; alcid: DWORD; dwFlags: Longint; out dateOut: TDateTime): HRESULT; stdcall; external oleaut; overload; + end.