Welcome Guest, you are in: Anmelden

CP Wiki

RSS RSS

Navigation



  1. Administration

Suche im wiki
»

DecodeDate

RSS
Modified on 16/01/2009 09:42 by CPABED Categorized as Plattform
Syntax:
procedureDecodeDate(Date: TDateTime; var Year, Month, Day: Word) ;


Beschreibung:

Die Prozedur gibt Jahr, Monat und Tag eines TDateTime-Wertes zurück.

DecodeDate zerlegt den im Parameter Date übergebenen Wert in die Werte Year, Month und Day.
Enthält der TDateTime-Wert ein Jahr kleiner null (v. Chr.), werden die var-Parameter auf null gesetzt.


Beispiel:

//Zu diesem Beispiel gehören eine Schaltfläche und zwei Beschriftungen in einem Formular. //Wenn der Benutzer auf die Schaltfläche klickt, erscheinen das aktuelle Datum und die Uhrzeit als Beschriftungstexte.

procedure TForm1.Button1Click(Sender: TObject);

var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month ' + IntToStr(Month) + ' of Year ' + IntToStr(Year); DecodeTime(Present, Hour, Min, Sec, MSec); Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour ' + IntToStr(Hour); end;

ScrewTurn Wiki version 3.0.1.400. Some of the icons created by FamFamFam.