RFC 1123 Time Format/fi: what changed

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

Title: RFC 1123 Time Format/fi

New		Line
1	+	# RFC 1123 Aika formaatti
2	+
3	+	[[Function/fi\|Funktio]] `function RFC1123TimeFormat(aDateTime:TDateTime; isLocalTime:boolean):string;` luo ja näyttää ajan kansainvälisessä RFC 1123 formaatissa:
4	+
5	+	` DAY, DD MON YYYY hh:mm:ss GMT`
6	+
7	+	esim.:
8	+
9	+	` Sun, 21 Oct 2018 12:16:24 GMT`
10	+
11	+	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	+
13	+	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	+
15	+	Aika on Coordinated Universal Time (UTC), vaikka merkintä voi olla valinnaisesti Greenwichin aika (GMT)
16	+
17	+	## Ohjelma RFC1123_TimeFormat
18	+
19	+	``` pascal
20	+
21	+	program RFC1123_TimeFormat;
22	+
23	+	uses
24	+	SysUtils, DateUtils;
25	+
26	+	function RFC1123TimeFormat(aDateTime:TDateTime; isLocalTime:boolean):string;
27	+	const
28	+	ShortDayNamesEnglish :array[1..7] of string =
29	+	('Sun', 'Mon','Tue', 'Wed', 'Thu', 'Fri', 'Sat');
30	+	ShortMonthNamesEnglish :array[1..12] of string = ('Jan', 'Feb','Mar', 'Apr',
31	+	'May','Jun','Jul','Aug', 'Sep','Oct','Nov','Dec');
32	+	var
33	+	day,month : string;
34	+	someDateTime:TDateTime;
35	+	begin
36	+	if isLocalTime then someDateTime := LocalTimeToUniversal(aDateTime)
37	+	else someDateTime := aDateTime;
38	+	day := ShortDayNamesEnglish[DayOfWeek(someDateTime)];
39	+	month := ShortMonthNamesEnglish[MonthOf(someDateTime)] ;
40	+	result := day+', '+FormatDateTime('dd', someDateTime)+' '+
41	+	month+' '+FormatDateTime('yyyy hh:nn:ss', someDateTime)+' GMT';
42	+	end;
43	+
44	+	var
45	+	someDate: TDateTime;
46	+	begin
47	+	someDate := EncodeDate(2018, 10, 23);
48	+	WriteLn(RFC1123TimeFormat(now,true));
49	+	WriteLn(RFC1123TimeFormat(someDate,false));
50	+	ReadLn;
51	+	end.
52	+	```
53	+
54	+	[[Unit/fi\|Käännösyksikön eli unitin]] DateUtils funktio LocalTimeToUniversal muuttaa paikallisen ajan UTC aikaan
55	+
56	+	``` pascal
57	+	function LocalTimeToUniversal( LT: TDateTime ):TDateTime;
58	+	```
59	+
60	+	Unit SysUtils funktio FormatDateTime tarjoaa monipuolisen TDateTime-arvon muotoilun merkkijonoksi. Muotoilu on määritellään Formatting merkkijonolla.
61	+
62	+	``` pascal
63	+	function FormatDateTime ( const Formatting : string; DateTime : TDateTime ) : string;
64	+	```
65	+
66	+	Unit SysUtils function EncodeDate rakentaa vuodesta, kuukaudesta ja päivästä TDateTime varvon.
67	+
68	+	``` pascal
69	+	function EncodeDate(Year, Month, Day :word): TDateTime;
70	+	```
71	+
72	+	## Katso myös
73	+
74	+	- [[TDateTime/fi\|TDateTime]]
75	+	- Standardi päivän ja ajan muotoilu [[ISO 8601/fi\|ISO 8601]]
76	+
77	+	---
78	+	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