RFC 1123 Time Format/fi: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# RFC 1123 Aika formaatti
2	2
3	3		[[Function/fi\|Funktio]] `function RFC1123TimeFormat(aDateTime:TDateTime; isLocalTime:boolean):string;` luo ja näyttää ajan kansainvälisessä RFC 1123 formaatissa:
4	4
5		-	~~` DAY, DD MON YYYY hh:mm:ss GMT`~~
	5	+	```text
	6	+	DAY, DD MON YYYY hh:mm:ss GMT
	7	+	```
6	8
7	9		esim.:
8	10
9		-	~~` Sun, 21 Oct 2018 12:16:24 GMT`~~
	11	+	```text
	12	+	Sun, 21 Oct 2018 12:16:24 GMT
	13	+	```
10	14
11	15		Päivä on muotoa DAY, kolmikirjaiminen englanninkielinen lyhenne jota seuraa [[Comma/fi\|pilkku]]. Päivämäärä on muotoaa DD-MON-YYYY (päivä, kuukausi ja vuosi), jossa kuukausi kolmikirjaiminen englanninkielinen lyhenne.
12	16
13	17		Päivämäärä ja kellonaika näkyvät samalla rivillä, päivämäärää, jota seuraa aika. Päivämäärän ja tunnin välillä on välilyönti ja aika on muodossa hh:mm:ss (tunnit, minuutit ja sekunnit)
14	18
15	19		Aika on Coordinated Universal Time (UTC), vaikka merkintä voi olla valinnaisesti Greenwichin aika (GMT)
16	20
17	21		## Ohjelma RFC1123_TimeFormat
18	22
19	23		``` pascal
20	24
21	25		program RFC1123_TimeFormat;
22	26
23	27		uses
24	28		SysUtils, DateUtils;
25	29
26	30		function RFC1123TimeFormat(aDateTime:TDateTime; isLocalTime:boolean):string;
27	31		const
28	32		ShortDayNamesEnglish :array[1..7] of string =
29	33		('Sun', 'Mon','Tue', 'Wed', 'Thu', 'Fri', 'Sat');
30	34		ShortMonthNamesEnglish :array[1..12] of string = ('Jan', 'Feb','Mar', 'Apr',
31	35		'May','Jun','Jul','Aug', 'Sep','Oct','Nov','Dec');
32	36		var
33	37		day,month : string;
34	38		someDateTime:TDateTime;
35	39		begin
36	40		if isLocalTime then someDateTime := LocalTimeToUniversal(aDateTime)
37	41		else someDateTime := aDateTime;
38	42		day := ShortDayNamesEnglish[DayOfWeek(someDateTime)];
39	43		month := ShortMonthNamesEnglish[MonthOf(someDateTime)] ;
40	44		result := day+', '+FormatDateTime('dd', someDateTime)+' '+
41	45		month+' '+FormatDateTime('yyyy hh:nn:ss', someDateTime)+' GMT';
42	46		end;
43	47
44	48		var
45	49		someDate: TDateTime;
46	50		begin
47	51		someDate := EncodeDate(2018, 10, 23);
48	52		WriteLn(RFC1123TimeFormat(now,true));
49	53		WriteLn(RFC1123TimeFormat(someDate,false));
50	54		ReadLn;
51	55		end.
52	56		```
53	57
54	58		[[Unit/fi\|Käännösyksikön eli unitin]] DateUtils funktio LocalTimeToUniversal muuttaa paikallisen ajan UTC aikaan
55	59
56	60		``` pascal
57	61		function LocalTimeToUniversal( LT: TDateTime ):TDateTime;
58	62		```
59	63
60	64		Unit SysUtils funktio FormatDateTime tarjoaa monipuolisen TDateTime-arvon muotoilun merkkijonoksi. Muotoilu on määritellään Formatting merkkijonolla.
61	65
62	66		``` pascal
63	67		function FormatDateTime ( const Formatting : string; DateTime : TDateTime ) : string;
64	68		```
65	69
66	70		Unit SysUtils function EncodeDate rakentaa vuodesta, kuukaudesta ja päivästä TDateTime varvon.
67	71
68	72		``` pascal
69	73		function EncodeDate(Year, Month, Day :word): TDateTime;
70	74		```
71	75
72	76		## Katso myös
73	77
74	78		- [[TDateTime/fi\|TDateTime]]
75	79		- Standardi päivän ja ajan muotoilu [[ISO 8601/fi\|ISO 8601]]
76	80
77	81		---
78	82		From the Free Pascal wiki, page "RFC 1123 Time Format/fi", as it stood on 2022-08-06 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history