掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridに日付を表示するには？ (ID：19263)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> たとえばEdit1に4月1日,Edit2に月曜日と入れると4月1日以降の月曜日を取得したい こんな感じでできました。 procedure TForm1.Button1Click(Sender: TObject); const week: array[1..7] of string = ('日曜日','月曜日','火曜日','水曜日','木曜日', '金曜日','土曜日'); var d, today: TDateTime; iw: integer; begin d := VarToDateTime('２００５年'+Edit1.Text); iw := 0; repeat inc(iw); until week[iw] = Edit2.Text; while DayOfWeek(d) <> iw do d := d+1; today := Now; while d<today do begin Memo1.Lines.Add(DateTimeToStr(d)); d := d+7; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.