paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* date and day names fixed

Browse Source
This commit is contained in:
florian 1998-10-08 14:07:45 +00:00
parent 47c808f95a
commit 73476be7bf
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/objpas/datih.inc
View File

@ -32,15 +32,15 @@ const
TimeAMString: string = 'am'; TimeAMString: string = 'am';
TimePMString: string = 'pm'; TimePMString: string = 'pm';
ShortMonthNames: array[1..12] of string = ShortMonthNames: array[1..12] of string =
('jan','feb','mar','apr','mai','jun', ('Jan','Feb','Mar','Apr','May','Jun',
'jul','aug','sep','oct','nov','dec'); 'Jul','Aug','Sep','Oct','Nov','Dec');
LongMonthNames: array[1..12] of string = LongMonthNames: array[1..12] of string =
('january','february','march','april','mai','june', ('January','February','March','April','May','June',
'july','august','september','october','november','december'); 'July','August','September','October','November','December');
ShortDayNames: array[1..7] of string = ShortDayNames: array[1..7] of string =
('sun','mon','tue','wen','thu','fri','sat'); ('Sun','Mon','Tue','Wen','Thu','Fri','Sat');
LongDayNames: array[1..7] of string = LongDayNames: array[1..7] of string =
('sunday','monday','tuesday','wednesday','thursday','friday','saturday'); ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
{ date time formatting characters: { date time formatting characters:
c : shortdateformat + ' ' + shorttimeformat c : shortdateformat + ' ' + shorttimeformat
@ -121,11 +121,14 @@ procedure DateTimeToString(var Result: string; const FormatStr: string; const Da
{ {
$Log$ $Log$
Revision 1.2 1998-09-16 08:28:37 michael Revision 1.3 1998-10-08 14:07:45 florian
* date and day names fixed
Revision 1.2 1998/09/16 08:28:37 michael
Update from gertjan Schouten, plus small fix for linux Update from gertjan Schouten, plus small fix for linux
Revision 1.1 1998/04/10 15:17:46 michael Revision 1.1 1998/04/10 15:17:46 michael
+ Initial implementation; Donated by Gertjan Schouten + Initial implementation; Donated by Gertjan Schouten
His file was split into several files, to keep it a little bit structured. His file was split into several files, to keep it a little bit structured.
} }