paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 06:31: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

19
rtl/objpas/datih.inc
View File

@ -32,15 +32,15 @@ const
TimeAMString: string = 'am';
TimePMString: string = 'pm';
ShortMonthNames: array[1..12] of string =
('jan','feb','mar','apr','mai','jun',
'jul','aug','sep','oct','nov','dec');
('Jan','Feb','Mar','Apr','May','Jun',
'Jul','Aug','Sep','Oct','Nov','Dec');
LongMonthNames: array[1..12] of string =
('january','february','march','april','mai','june',
'july','august','september','october','november','december');
('January','February','March','April','May','June',
'July','August','September','October','November','December');
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 =
('sunday','monday','tuesday','wednesday','thursday','friday','saturday');
('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
{ date time formatting characters:
c : shortdateformat + ' ' + shorttimeformat
@ -121,11 +121,14 @@ procedure DateTimeToString(var Result: string; const FormatStr: string; const Da
{
$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
Revision 1.1 1998/04/10 15:17:46 michael
+ Initial implementation; Donated by Gertjan Schouten
His file was split into several files, to keep it a little bit structured.
}
}