Bug in VarToDateAsString
===

Delphi has next function:

    function VarToDateAsString(const V: TVarData): TDateTime;
    ....
    LResult := VarDateFromStr(S, VAR_LOCALE_USER_DEFAULT, 0, Result);

it will be

       VarDateFromStr('07;12;18', VAR_LOCALE_USER_DEFAULT, 0, Result);

then Result will be equal
   

    Result = '07;18;12'

**How cat It fix if possible ?**

