time - パスカルの数値として現在の月を取得

Question

今月の誕生日があるかどうかを確認するという課題があります。私はあなたに「宿題をする」ことを求めていませんが、私が求めているのはこれです：パスカル（具体的には、ラザロパスカル）で1から12までの数字として今月を取得する方法はありますか？次に、番号を取得して、ファイルに保持されているレコードと比較できます。

助けてくれてありがとう、

ジェームズ

Answer 1

Lazarusについてはわかりませんが、ほとんどのPascal実装は以下を提供します。

procedure GetDate(var Year, Month, Day, DayofWeek: Word); 

Answer 2

次のコードを使用できます。

DecodeDate(Date:TDateTime, Year, Month, Day: word);

dateutilsユニットを確認することをお勧めします。すべての「日付」または「時刻」の問題を完全にサポートします。

Answer 3

マニーは正しいです。この手順を書いて、Lazarusで試してみました。

procedure Dates;
var y, m, d: word;
begin
  DecodeDate(Date, y, m, d);
end;

Dateは、現在のローカル日付を返すSysUtils（datih.inc）の関数です。DecodeDateは、TDateTimeを受け取り、年のカレンダー値をvarパラメーターに返すプロシージャです。月と日。もちろん3つすべてが必要ですが、必要なものだけを使用してください。