TDateTime/fi: what changed

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

Title: TDateTime/fi

New		Line
1	+	TDateTime on yhdistelmä päiväyksestä ja ajasta. Se käyttää attribuutteina: vuotta, kuukautta, päivää, tuntia, minuuttia, sekuntia ja mikrosekunteja.
2	+
3	+	## Hae tämänhetkinen aika
4	+
5	+	[[Unit\|Käännösyksikön (unit)]] SysUtils [[Function/fi\|funktio]] Now noutaa järjestelmän tämänhetkisen päivämäärän ja kellonajan.
6	+
7	+	``` pascal
8	+	function Now : TDateTime;
9	+	```
10	+
11	+	## TDateTimen lisääminen ja vähentäminen
12	+
13	+	Käännösyksikön DateUtils funktio DaysBetween kertoo montako päivää on kahden TDateTime-päivämäärän välillä.
14	+
15	+	``` pascal
16	+	function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer;
17	+	```
18	+
19	+	Käännösyksikön DateUtils funktio WeeksBetween kertoo montako kokonaista viikkoa on kahden TDateTime-päivämäärän välillä.
20	+
21	+	``` pascal
22	+	function WeeksBetween( const ToDate, FromDate : TDateTime ):Integer;
23	+	```
24	+
25	+	``` pascal
26	+
27	+	program DateProject1;
28	+
29	+	uses
30	+	SysUtils,DateUtils;
31	+	const
32	+	DateFormatChars = 'dd"/"mm"/"yyyy';
33	+	var
34	+	DateTime1, DateTime2: TDateTime;
35	+	begin
36	+	DateTime1 := now;
37	+	DateTime2 := DateTime1 + 4*7; //28 päivää myöhemmin
38	+	WriteLn('Tämänhetkinen päivämäärä on '+ FormatDateTime( DateFormatChars, DateTime1 ));
39	+	WriteLn('28 päivää myöhemmin päivämäärä on '+ FormatDateTime( DateFormatChars, DateTime2 ));
40	+	WriteLn('Päivien lukumäärä on '+ ( DaysBetween( DateTime1 ,DateTime2)).ToString );
41	+	WriteLn('Viikkojen määrä on '+ ( WeeksBetween( DateTime1 ,DateTime2)).ToString );
42	+	ReadLn;
43	+	end.
44	+
45	+	```
46	+
47	+	## Aseta päivämäärä
48	+
49	+	Käännösyksikön SysUtils funktio EncodeDate asettaa päiväyksen.
50	+
51	+	``` pascal
52	+	function EncodeDate ( const Year, Month, Day : Word ) : TDateTime;
53	+	```
54	+
55	+	## Vertaa kahta TDateTime-päivämäärää
56	+
57	+	``` pascal
58	+
59	+	program CompareTwoDateTime;
60	+
61	+	uses
62	+	SysUtils, DateUtils;
63	+	var
64	+	firstDate, secondDate: TDateTime;
65	+	begin
66	+	firstDate := EncodeDate(2000, 2, 29);
67	+	secondDate := EncodeDate(2018, 8, 11);
68	+	if DaysBetween( firstDate, secondDate) = 0
69	+	then WriteLn('Molemmat päivät ovat samat')
70	+	else
71	+	if firstDate < secondDate
72	+	then WriteLn('Ensimmäinen päivämäärä on aikaisempi')
73	+	else WriteLn('Ensimmäinen päivämäärä on myöhemmin');
74	+	ReadLn;
75	+	end.
76	+	```
77	+
78	+	## Katso myös
79	+
80	+	- Päivämäärä ja ajan esitysmuoto [[ISO 8601/fi\|ISO 8601]]
81	+	- [[RFC 1123 Time Format]]
82	+
83	+	---
84	+	From the Free Pascal wiki, page "TDateTime/fi", as it stood on 2019-07-08 after a change by Djzepi, 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