パスカル-日付と時刻

あなたが書くソフトウェアのほとんどは、現在の日付と時刻を返す何らかの形式の日付関数を実装する必要があります。デートは日常生活の一部であるため、考えずに一緒に仕事をすることが容易になります。Pascalは、日付の操作を簡単にする日付演算用の強力なツールも提供します。ただし、これらの関数の実際の名前と動作は、コンパイラーによって異なります。

現在の日付と時刻を取得する

PascalのTimeToString関数は、現在の時刻をコロン(:)で区切られた形式で提供します。次の例は、現在の時刻を取得する方法を示しています-

program TimeDemo;
uses sysutils;

begin
   writeln ('Current time : ',TimeToStr(Time));
end.

上記のコードをコンパイルして実行すると、次の結果が得られます。

Current time : 18:33:08

ザ・ Date 関数は現在の日付をで返します TDateTimeフォーマット。TDateTimeはdouble値であり、デコードとフォーマットが必要です。次のプログラムは、プログラムでそれを使用して現在の日付を表示する方法を示しています-

Program DateDemo;
uses sysutils;
var
   YY,MM,DD : Word;

begin
   writeln ('Date : ',Date);
   DeCodeDate (Date,YY,MM,DD);
   writeln (format ('Today is (DD/MM/YY): %d/%d/%d ',[dd,mm,yy]));
end.

上記のコードをコンパイルして実行すると、次の結果が得られます。

Date: 4.111300000000000E+004
Today is (DD/MM/YY):23/7/2012

Now関数は、現在の日付と時刻を返します-

Program DatenTimeDemo;
uses sysutils;
begin
   writeln ('Date and Time at the time of writing : ',DateTimeToStr(Now));
end.

上記のコードをコンパイルして実行すると、次の結果が得られます。

Date and Time at the time of writing : 23/7/2012 18:51:

Free Pascalは、という名前の単純なタイムスタンプ構造を提供します TTimeStamp、次の形式です-

type TTimeStamp = record
   Time: Integer;
   Date: Integer;
end;

さまざまな日付と時刻の関数

Free Pascalは、次の日付と時刻の機能を提供します-

シニア番号 関数名と説明
1

function DateTimeToFileDate(DateTime: TDateTime):LongInt;

DateTimeタイプをファイルの日付に変換します。

2

function DateTimeToStr( DateTime: TDateTime):;

DateTimeの文字列表現を構築します

3

function DateTimeToStr(DateTime: TDateTime; const FormatSettings: TFormatSettings):;

DateTimeの文字列表現を構築します

4

procedure DateTimeToString(out Result: ;const FormatStr: ;const DateTime: TDateTime);

DateTimeの文字列表現を構築します

5

procedure DateTimeToString(out Result: ; const FormatStr: ; const DateTime: TDateTime; const FormatSettings: TFormatSettings);

DateTimeの文字列表現を構築します

6

procedure DateTimeToSystemTime(DateTime: TDateTime; out SystemTime: TSystemTime);

DateTimeをシステム時刻に変換します

7

function DateTimeToTimeStamp( DateTime: TDateTime):TTimeStamp;DateTimeをタイムスタンプに変換します

8

function DateToStr(Date: TDateTime):;

日付の文字列表現を構築します

9

function DateToStr(Date: TDateTime; const FormatSettings: TFormatSettings):;

日付の文字列表現を構築します

10

function Date: TDateTime;

現在の日付を取得します

11

function DayOfWeek(DateTime: TDateTime):Integer;

曜日を取得します

12

procedure DecodeDate(Date: TDateTime; out Year: Word; out Month: Word; out Day: Word);

DateTimeを年月日にデコードします

13

procedure DecodeTime(Time: TDateTime; out Hour: Word; out Minute: Word; out Second: Word; out MilliSecond: Word);

DateTimeを時間、分、秒にデコードします

14

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

年、日、月をDateTimeにエンコードします

15

function EncodeTime(Hour: Word; Minute: Word; Second: Word; MilliSecond: Word):TDateTime;

時間、分、秒をDateTimeにエンコードします

16

function FormatDateTime(const FormatStr: ; DateTime: TDateTime):;

DateTimeの文字列表現を返します

17

function FormatDateTime(const FormatStr: ; DateTime: TDateTime; const FormatSettings: TFormatSettings):;

DateTimeの文字列表現を返します

18

function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1):TDateTime;

月に1を追加

19

function IsLeapYear(Year: Word):Boolean;

年がうるう年かどうかを判断します

20

function MSecsToTimeStamp(MSecs: Comp):TTimeStamp;

ミリ秒数をタイムスタンプに変換します

21

function Now: TDateTime;

現在の日付と時刻を取得します

22

function StrToDateTime(const S:):TDateTime;

文字列をDateTimeに変換します

23

function StrToDateTime(const s: ShortString; const FormatSettings: TFormatSettings):TDateTime;

文字列をDateTimeに変換します

24

function StrToDateTime(const s: AnsiString; const FormatSettings: TFormatSettings):TDateTime;

文字列をDateTimeに変換します

25

function StrToDate(const S: ShortString):TDateTime;

文字列を日付に変換します

26

function StrToDate(const S: Ansistring):TDateTime;

文字列を日付に変換します

27

function StrToDate(const S: ShortString; separator: Char):TDateTime;

文字列を日付に変換します

28

function StrToDate(const S: AnsiString; separator: Char):TDateTime;

文字列を日付に変換します

29

function StrToDate(const S: ShortString; const useformat: ; separator: Char):TDateTime;

文字列を日付に変換します

30

function StrToDate(const S: AnsiString; const useformat: ; separator: Char):TDateTime;

文字列を日付に変換します

31

function StrToDate(const S: PChar; Len: Integer; const useformat: ; separator: Char = #0):TDateTime;

文字列を日付に変換します

32

function StrToTime(const S: Shortstring):TDateTime;

文字列を時間に変換します

33

function StrToTime(const S: Ansistring):TDateTime;

文字列を時間に変換します

34

function StrToTime(const S: ShortString; separator: Char):TDateTime;

文字列を時間に変換します

35

function StrToTime(const S: AnsiString; separator: Char):TDateTime;

文字列を時間に変換します

36

function StrToTime(const S: ; FormatSettings: TFormatSettings):TDateTime;

文字列を時間に変換します

37

function StrToTime(const S: PChar; Len: Integer; separator: Char = #0):TDateTime;

文字列を時間に変換します

38

function SystemTimeToDateTime(const SystemTime: TSystemTime):TDateTime;

システム時刻を日時に変換します

39

function TimeStampToDateTime(const TimeStamp: TTimeStamp):TDateTime;

タイムスタンプをDateTimeに変換します

40

function TimeStampToMSecs(const TimeStamp: TTimeStamp):comp;

タイムスタンプをミリ秒数に変換します

41

function TimeToStr(Time: TDateTime):;

時間の文字列表現を返します

42

function TimeToStr(Time: TDateTime; const FormatSettings: TFormatSettings):;

時間の文字列表現を返します

43

function Time: TDateTime;

現在の時刻を取得する

次の例は、上記の関数のいくつかの使用法を示しています-

Program DatenTimeDemo;
uses sysutils;
var
year, month, day, hr, min, sec, ms: Word;

begin
   writeln ('Date and Time at the time of writing : ',DateTimeToStr(Now));
   writeln('Today is ',LongDayNames[DayOfWeek(Date)]);
   writeln;
   writeln('Details of Date: ');
   
   DecodeDate(Date,year,month,day);
   writeln (Format ('Day: %d',[day]));
   writeln (Format ('Month: %d',[month]));
   writeln (Format ('Year: %d',[year]));
   writeln;
   writeln('Details of Time: ');
   
   DecodeTime(Time,hr, min, sec, ms);
   writeln (format('Hour: %d:',[hr]));
   writeln (format('Minutes: %d:',[min]));
   writeln (format('Seconds: %d:',[sec]));
   writeln (format('Milliseconds: %d:',[hr]));
end.

上記のコードをコンパイルして実行すると、次の結果が得られました。

Date and Time at the time of writing : 7/24/2012 8:26:
Today is Tuesday
Details of Date:
Day:24
Month:7
Year: 2012
Details of Time:
Hour: 8
Minutes: 26
Seconds: 21
Milliseconds: 8