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

* fixed some compiler warnings

Browse Source
This commit is contained in:
armin 2004-09-19 19:25:52 +00:00
parent 1120c598aa
commit dc7edb39d0
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/objpas/dateutil.inc
View File

@ -1513,7 +1513,7 @@ end;
Function EncodeDateWeek(const AYear, AWeekOfYear: Word): TDateTime; //; const ADayOfWeek: Word = 1
begin
EncodeDateWeek(AYear,AWeekOfYear,1);
Result := EncodeDateWeek(AYear,AWeekOfYear,1);
end;
@ -1692,55 +1692,55 @@ Const
Function RecodeYear(const AValue: TDateTime; const AYear: Word): TDateTime;
begin
RecodeDateTime(AValue,AYear,LFAI,LFAI,LFAI,LFAI,LFAI,LFAI);
Result := RecodeDateTime(AValue,AYear,LFAI,LFAI,LFAI,LFAI,LFAI,LFAI);
end;
Function RecodeMonth(const AValue: TDateTime; const AMonth: Word): TDateTime;
begin
RecodeDateTime(AValue,LFAI,AMonth,LFAI,LFAI,LFAI,LFAI,LFAI);
Result := RecodeDateTime(AValue,LFAI,AMonth,LFAI,LFAI,LFAI,LFAI,LFAI);
end;
Function RecodeDay(const AValue: TDateTime; const ADay: Word): TDateTime;
begin
RecodeDateTime(AValue,LFAI,LFAI,ADay,LFAI,LFAI,LFAI,LFAI);
Result := RecodeDateTime(AValue,LFAI,LFAI,ADay,LFAI,LFAI,LFAI,LFAI);
end;
Function RecodeHour(const AValue: TDateTime; const AHour: Word): TDateTime;
begin
RecodeDateTime(AValue,LFAI,LFAI,LFAI,AHour,LFAI,LFAI,LFAI);
Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,AHour,LFAI,LFAI,LFAI);
end;
Function RecodeMinute(const AValue: TDateTime; const AMinute: Word): TDateTime;
begin
RecodeDateTime(AValue,LFAI,LFAI,LFAI,LFAI,AMinute,LFAI,LFAI);
Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,LFAI,AMinute,LFAI,LFAI);
end;
Function RecodeSecond(const AValue: TDateTime; const ASecond: Word): TDateTime;
begin
RecodeDateTime(AValue,LFAI,LFAI,LFAI,LFAI,LFAI,ASecond,LFAI);
Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,LFAI,LFAI,ASecond,LFAI);
end;
Function RecodeMilliSecond(const AValue: TDateTime; const AMilliSecond: Word): TDateTime;
begin
RecodeDateTime(AValue,LFAI,LFAI,LFAI,LFAI,LFAI,LFAI,AMilliSecond);
Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,LFAI,LFAI,LFAI,AMilliSecond);
end;
Function RecodeDate(const AValue: TDateTime; const AYear, AMonth, ADay: Word): TDateTime;
begin
RecodeDateTime(AValue,AYear,AMonth,ADay,LFAI,LFAI,LFAI,LFAI);
Result := RecodeDateTime(AValue,AYear,AMonth,ADay,LFAI,LFAI,LFAI,LFAI);
end;
Function RecodeTime(const AValue: TDateTime; const AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;
begin
RecodeDateTime(AValue,LFAI,LFAI,LFAI,AHour,AMinute,ASecond,AMilliSecond);
Result := RecodeDateTime(AValue,LFAI,LFAI,LFAI,AHour,AMinute,ASecond,AMilliSecond);
end;
@ -1996,7 +1996,10 @@ end.
{
$Log$
Revision 1.3 2004-08-12 12:26:34 michael
Revision 1.4 2004-09-19 19:25:52 armin
* fixed some compiler warnings
Revision 1.3 2004/08/12 12:26:34 michael
+ Implemented decodedateweek
Revision 1.2 2004/01/10 19:35:17 michael