* modified Patch from #33018 by 隆博. Locale aware datefromstr functions.

git-svn-id: trunk@38358 -

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);

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.