Difference between revisions of "TDateTime/fi"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{TDateTime}} TDateTime on yhdistelmä päiväyksestä ja ajasta. Se käyttää attribuutteina: vuotta, kuukautta, päivää, tuntia, minuuttia, sekuntia ja mikrosekunteja....") |
|||
(One intermediate revision by the same user not shown) | |||
Line 8: | Line 8: | ||
− | < | + | <syntaxhighlight lang="pascal"> |
function Now : TDateTime; | function Now : TDateTime; | ||
− | </ | + | </syntaxhighlight> |
== TDateTimen lisääminen ja vähentäminen == | == TDateTimen lisääminen ja vähentäminen == | ||
Line 16: | Line 16: | ||
Käännösyksikön DateUtils funktio DaysBetween kertoo montako päivää on kahden TDateTime-päivämäärän välillä. | Käännösyksikön DateUtils funktio DaysBetween kertoo montako päivää on kahden TDateTime-päivämäärän välillä. | ||
− | < | + | <syntaxhighlight lang="pascal"> |
function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer; | function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer; | ||
− | </ | + | </syntaxhighlight> |
− | Käännösyksikön DateUtils funktio WeeksBetween kertoo montako kokonaista viikkoa | + | Käännösyksikön DateUtils funktio WeeksBetween kertoo montako kokonaista viikkoa on kahden TDateTime-päivämäärän välillä. |
− | < | + | <syntaxhighlight lang="pascal"> |
function WeeksBetween( const ToDate, FromDate : TDateTime ):Integer; | function WeeksBetween( const ToDate, FromDate : TDateTime ):Integer; | ||
− | </ | + | </syntaxhighlight> |
− | < | + | <syntaxhighlight lang="pascal"> |
program DateProject1; | program DateProject1; | ||
Line 48: | Line 48: | ||
end. | end. | ||
− | </ | + | </syntaxhighlight> |
− | + | ||
== Aseta päivämäärä == | == Aseta päivämäärä == | ||
Käännösyksikön SysUtils funktio EncodeDate asettaa päiväyksen. | Käännösyksikön SysUtils funktio EncodeDate asettaa päiväyksen. | ||
− | < | + | <syntaxhighlight lang="pascal"> |
function EncodeDate ( const Year, Month, Day : Word ) : TDateTime; | function EncodeDate ( const Year, Month, Day : Word ) : TDateTime; | ||
− | </ | + | </syntaxhighlight> |
== Vertaa kahta TDateTime-päivämäärää == | == Vertaa kahta TDateTime-päivämäärää == | ||
− | < | + | <syntaxhighlight lang="pascal"> |
program CompareTwoDateTime; | program CompareTwoDateTime; | ||
Line 80: | Line 80: | ||
ReadLn; | ReadLn; | ||
end. | end. | ||
− | </ | + | </syntaxhighlight> |
== Katso myös == | == Katso myös == |
Latest revision as of 15:16, 8 July 2019
│
English (en) │
suomi (fi) │
TDateTime on yhdistelmä päiväyksestä ja ajasta. Se käyttää attribuutteina: vuotta, kuukautta, päivää, tuntia, minuuttia, sekuntia ja mikrosekunteja.
Hae tämänhetkinen aika
Käännösyksikön (unit) SysUtils funktio Now noutaa järjestelmän tämänhetkisen päivämäärän ja kellonajan.
function Now : TDateTime;
TDateTimen lisääminen ja vähentäminen
Käännösyksikön DateUtils funktio DaysBetween kertoo montako päivää on kahden TDateTime-päivämäärän välillä.
function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer;
Käännösyksikön DateUtils funktio WeeksBetween kertoo montako kokonaista viikkoa on kahden TDateTime-päivämäärän välillä.
function WeeksBetween( const ToDate, FromDate : TDateTime ):Integer;
program DateProject1;
uses
SysUtils,DateUtils;
const
DateFormatChars = 'dd"/"mm"/"yyyy';
var
DateTime1, DateTime2: TDateTime;
begin
DateTime1 := now;
DateTime2 := DateTime1 + 4*7; //28 päivää myöhemmin
WriteLn('Tämänhetkinen päivämäärä on '+ FormatDateTime( DateFormatChars, DateTime1 ));
WriteLn('28 päivää myöhemmin päivämäärä on '+ FormatDateTime( DateFormatChars, DateTime2 ));
WriteLn('Päivien lukumäärä on '+ ( DaysBetween( DateTime1 ,DateTime2)).ToString );
WriteLn('Viikkojen määrä on '+ ( WeeksBetween( DateTime1 ,DateTime2)).ToString );
ReadLn;
end.
Aseta päivämäärä
Käännösyksikön SysUtils funktio EncodeDate asettaa päiväyksen.
function EncodeDate ( const Year, Month, Day : Word ) : TDateTime;
Vertaa kahta TDateTime-päivämäärää
program CompareTwoDateTime;
uses
SysUtils, DateUtils;
var
firstDate, secondDate: TDateTime;
begin
firstDate := EncodeDate(2000, 2, 29);
secondDate := EncodeDate(2018, 8, 11);
if DaysBetween( firstDate, secondDate) = 0
then WriteLn('Molemmat päivät ovat samat')
else
if firstDate < secondDate
then WriteLn('Ensimmäinen päivämäärä on aikaisempi')
else WriteLn('Ensimmäinen päivämäärä on myöhemmin');
ReadLn;
end.
Katso myös
- Päivämäärä ja ajan esitysmuoto ISO 8601
- RFC 1123 Time Format