1

私はこれをやっています:

procedure TForm1.Button1Click(Sender: TObject);
var dtStart: TDateTime;
  I: Integer;
begin
  dtStart := DateTimePicker1.Date;
  for I := 0 to 6 do
    StringGrid1.Cells[I+1, 1] := FormatDateTime('dd/mm/yyyy', dtStart + I);
end;

月曜日、火曜日、水曜日などのように、日付とともに曜日の名前を追加する方法

4

1 に答える 1

4

FormatDateTimeフォーマット文字列を変更するだけです:

StringGrid1.Cells[I+1, 1] := FormatDateTime('ddd dd/mm/yyyy', dtStart + I);
于 2012-05-09T03:13:47.527 に答える