日付を取り込んで、決まった日に処理を実行するには
解決スタットアップに登録しておいて、パソコン起動時に実行するようにします。 日付が２６日であればある処理（たとえば給料日と表示）を実行しそうでなければ、終了する。 次のパソコンの起動まで実行されない
と、いったものを考えているのですが、日付の取り込み等がわかりません。
よろしくお願いします。
プロジェクトファイルを例えば以下のようにすると、２６日以外ではすぐ終了します。
program Project1;
uses
Forms, SysUtils, // SysUtils を加える
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
function GetDay:integer;
var
Year, Month, Day: Word;
begin
DecodeDate(Date,Year,Month,Day);
result := Day;
end;
begin
if GetDay <> 26 then exit;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
処理を行うだけなら
program Project1;
uses
Forms, SysUtils, Dialogs;
{$R *.RES}
function CheckDay:integer;
var
Year, Month, Day: Word;
begin
DecodeDate(Date,Year,Month,Day);
result := Day = 26;
end;
begin
Application.Initialize;
if CheckDay then
//メッセージを表示する場合
ShowMessage('本日は給料日です。');
//処理を書く
end.
複数命令ならifのところにbegin&endがいりますね
> function CheckDay:integer;
戻り値が integer なら if 文につかえないんじゃないの？
>戻り値が integer なら if 文につかえないんじゃないの？
つっかさんが書いた汎用的なコードをどうして改悪する必要があるのか理由がわからないです。
わたしはコード書いてませんけど.....
>わたしはコード書いてませんけど.....
大変失礼しました。<(_ _)>
コードをを書かれたのはjokさんでした。
自分はるるとん＠Ｋさんがどうして他の人のコードをテキトウにいじってマトモに動かないようにして
ポストするのか不思議なんです。
っていうか、こういうイイカゲンな投稿をどうしてできるんだろう？
データを参考に、できました。
皆様、ありがとうございました。
| ツイート |  |