Pascal-opas:Aika

Mureakuha

Tähän on koottu jotain ajan käsittelyyn liittyviä asioita Pascal-ohjelmointikielessä (kuten Delphi, FreePascal ja Lazarus)

Sisällysluettelo 1 Date 2 DateTimeToStr 3 DaysBetween 4 DecodeDate 5 DecodeTime 6 EncodeDate 7 EncodeTime 8 IncDay 9 Now 10 TimeToStr

Date

function Date  : TDateTime;

Palauttaa tämän päivän (paikallinen aika). Palautettavan tiedon tyyppi on TDateTime.

DateTimeToStr

function DateTimeToStr ( DateTime  : TDateTime ) : string;

Palauttaa merkkijonon joka sisältää joko päivämäärän tai päivämäärän ja ajan. Se mitä palautetaan riippuu siitä mitä TDateTime-tyyppiseen muuttujaan on tallennettu.

DaysBetween

function DaysBetween ( const ToDate, FromDate  : TDateTime ) : Integer;

Palauttaa kokonaislukuna päivien eron kun parametreinä annetaa kaksi TDateTime-tyyppistä päivämäärää

DecodeDate

procedure DecodeDate ( const SourceDate  : TDateTime; Year, Month, Day  : Word ) ;

Aliohjelmalle annetaan TDateTime-tyyppinen muuttuja ja aliohjelma palauttaa samaa ajankohdan kolmena (3) word-tyyppisenä kokonaislukuna. Ensimmäinen word-tyyppinen kokonaisluku tarkoittaa vuotta, toinen kuukautta ja kolmas päivää.

DecodeTime

procedure DecodeTime ( const SourceDateTime  : TDateTime; Hour, Min, Sec, MSec : Word ) ;

Aliohjelmalle annetaan TDateTime-tyyppinen muuttuja ja aliohjelma palauttaa samaa ajan neljänä (4) word-tyyppisenä kokonaislukuna. Ensimmäinen kokonaisluku tarkoittaa tunteja, toinen minuutteja, kolmas sekuntteja ja neljäs millisekunteja.

EncodeDate

function EncodeDate ( const Year, Month, Day  : Word ) : TDateTime;

Palauttaa TDateTime-tyyppisen arvon joka on muodostettu word-tyyppisistä kokonaisluvuista. Ensimmäinen kokonaisluku tarkoittaa vuotta, toinen kuukautta ja kolmas päivää. esim EncodeDate( 2007, 3, 30)

EncodeTime

function EncodeTime ( const Hour, Min, Sec, MSec  : Word ) : TDateTime;

Palauttaa TDateTime-tyyppisen arvon joka on muodostettu word-tyyppisistä kokonaisluvuista. Ensimmäinen kokonaisluku tarkoittaa tunteja, toinen minuutteja, kolmas sekuntteja ja neljäs millisekunteja.

IncDay

function IncDay ( const StartDateTime  : TDateTime ; NumberOfDays  : Integer ) : TDateTime;

Palauttaa TDateTime-tyyppisen arvon. Funktiolle annetaan parametreinä aloituspäivä (joka on TDateTime-tyyppinen) ja siihen lisättävien tai vähennettävien päivien lukumäärä kokonaislukuna. Jos kokonaisluku on negatiivinen niin silloin vähennetään päiviä.

Now

function Now : TDateTime;

Palauttaa tämän päivän ja ajan (paikallinen aika). Palautettavan tiedon tyyppi on TDateTime.

TimeToStr

function TimeToStr ( Time  : TDateTime ) : string;

Palauttaa merkkijonon jossa on kerrottu aika. Parametrinä annetaan TDateTime-tyyppinen muuttuja.