paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #28364

Browse Source 
git-svn-id: trunk@31185 -
This commit is contained in:
michael 2015-07-01 19:57:10 +00:00
parent 8cb651c0a5
commit 0958ff80de
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/sysutils/dati.inc
View File

@ -165,7 +165,8 @@ begin
else
Date:=Date-1/(msecsperday*2);
if Date>MaxDateTime then
Raise EConvertError.CreateFmt('%f is not a valid TDatetime encoding, maximum value is %f.',[Date,MaxDateTime]);
Date:=MaxDateTime;
// Raise EConvertError.CreateFmt('%f is not a valid TDatetime encoding, maximum value is %f.',[Date,MaxDateTime]);
j := pred((Trunc(System.Int(Date)) + 693900) SHL 2);
ly:= j DIV 146097;
j:= j - 146097 * cardinal(ly);
@ -338,14 +339,17 @@ end;
{ DateTimeToStr returns a string representation of DateTime using LongDateTimeFormat }
function DateTimeToStr(DateTime: TDateTime): string;
Const
DateTimeToStrFormat : Array[Boolean] of string = ('c','f');
function DateTimeToStr(DateTime: TDateTime; ForceTimeIfZero : Boolean = False): string;
begin
DateTimeToString(Result, 'c', DateTime);
DateTimeToString(Result, DateTimeToStrFormat[ForceTimeIfZero], DateTime)
end ;
function DateTimeToStr(DateTime: TDateTime; const FormatSettings: TFormatSettings): string;
function DateTimeToStr(DateTime: TDateTime; const FormatSettings: TFormatSettings; ForceTimeIfZero : Boolean = False): string;
begin
DateTimeToString(Result, 'c', DateTime ,FormatSettings);
DateTimeToString(Result, DateTimeToStrFormat[ForceTimeIfZero], DateTime ,FormatSettings);
end;
{ StrToDate converts the string S to a TDateTime value

4
rtl/objpas/sysutils/datih.inc
View File

@ -133,8 +133,8 @@ function DateToStr(Date: TDateTime): string;
function DateToStr(Date: TDateTime; const FormatSettings: TFormatSettings): string;
function TimeToStr(Time: TDateTime): string;
function TimeToStr(Time: TDateTime; const FormatSettings: TFormatSettings): string;
function DateTimeToStr(DateTime: TDateTime): string;
function DateTimeToStr(DateTime: TDateTime; const FormatSettings: TFormatSettings): string;
function DateTimeToStr(DateTime: TDateTime; ForceTimeIfZero : Boolean = False): string;
function DateTimeToStr(DateTime: TDateTime; const FormatSettings: TFormatSettings; ForceTimeIfZero : Boolean = False): string;
function StrToDate(const S: ShortString): TDateTime; {$ifdef SYSUTILSINLINE}inline;{$endif}
function StrToDate(const S: Ansistring): TDateTime; {$ifdef SYSUTILSINLINE}inline;{$endif}
function StrToDate(const S: ShortString; separator : char): TDateTime;{$ifdef SYSUTILSINLINE}inline;{$endif}