掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
特定の曜日だけの日付を求めるには？ (ID:6193)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
おもしろそうなので、試しに。。。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Calendar; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; Calendar1: TCalendar; procedure Button1Click(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.dfm} procedure GetHoge(Yobi: Integer; MaxCount: Integer; HizukeList: TStrings); var D: TDateTime; begin D := Date; while not (DayOfWeek(D)=Yobi) do D := D-1; HizukeList.Add(FormatDateTime('yyyy/mm/dd',D)); D := D-7; Dec(MaxCount); while MaxCount>0 do begin HizukeList.Add(FormatDateTime('yyyy/mm/dd',D)); D := D-7; Dec(MaxCount); end; end; procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Clear; ListBox1.Items.Add('日曜'); GetHoge(1,10,ListBox1.Items); ListBox1.Items.Add('土曜'); GetHoge(7,10,ListBox1.Items); end; end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.