Delphiでカウントダウン機能

質問

こんにちは。最近プログラミングについて勉強を始めたのですが、行き詰まっているため手助けをお願いします。
タイトルにも書いたようにDelphiでカウントダウン機能を加えたいです。
"○○まであと○日！！"
みたいな単純なもので構いません。
また、これを当日になったら"今日は○○の日です"といったように通知してくれる機能が付けられたらと思っています。
どなたかご教授願います。

回答No.2

cso236 · ベストアンサー

以下の例を勉強すればできます。
(1)TDateTimeを使う。
(2)EncodeDateTimeを使う。
(3)今日の日付 Nowを取得する
(4)DaysBetweenを使って日数を取得する

あとはこのソースで勉強です。
var
fromdate, toDate : TDateTime;

begin
// Set up our date variables
fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
toDate := EncodeDateTime(2000, 02, 29, 9, 0, 0, 0);

// Display these dates and the days between them
ShowMessage('From date = '+DateTimeToStr(fromDate));
ShowMessage('To date = '+DateTimeToStr(toDate));
ShowMessage('Whole days difference = '+
IntToStr(DaysBetween(toDate, fromDate))+' days');
end;
Show full unit code
From date = 26/02/2000 10:00:00
To date = 29/02/2000 09:00:00
Whole days difference = 2 days

回答No.1

kihonkana

どこで行き詰っているのでしょうか？
TDateTimePickerコンポーネントを配置して、日付を指定できるようにし、
今日の日付と比較するようにすればできるように思います。
まだ、初心者ですけど。