paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 10:11:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ EncodeDate routines raise EConvertError as needed

Browse Source 
git-svn-id: trunk@110 -
This commit is contained in:
michael 2005-05-25 21:26:36 +00:00
parent f9fe00482d
commit 08c7681c60
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -130,7 +130,7 @@ function EncodeDate(Year, Month, Day: word): TDateTime;
begin begin
If Not TryEncodeDate(Year,Month,Day,Result) then If Not TryEncodeDate(Year,Month,Day,Result) then
Raise Exception.CreateFmt('%d-%d-%d is not a valid date specification', Raise EConvertError.CreateFmt('%d-%d-%d is not a valid date specification',
[Year,Month,Day]); [Year,Month,Day]);
end; end;
@ -141,7 +141,7 @@ function EncodeTime(Hour, Minute, Second, MilliSecond:word):TDateTime;
begin begin
If not TryEncodeTime(Hour,Minute,Second,MilliSecond,Result) then If not TryEncodeTime(Hour,Minute,Second,MilliSecond,Result) then
Raise Exception.CreateFmt('%d:%d:%d.%d is not a valid time specification', Raise EConvertError.CreateFmt('%d:%d:%d.%d is not a valid time specification',
[Hour,Minute,Second,MilliSecond]); [Hour,Minute,Second,MilliSecond]);
end; end;