有没有办法显示当前日期旁边的日期

Question

我想显示所选月份当前日期旁边的日期 每月所有天循环

var
  dtSelectedDate, dtStartDate, dtEndDate, dtCurrentDate, d1: TDateTime;

begin
  dtSelectedDate := DateOf(CalendarView1.Date);
  dtStartDate := StartOfTheMonth(dtSelectedDate);
  dtEndDate := EndOfTheMonth(dtSelectedDate);

  EditMonth.Text := IntToStr(DaysInMonth(dtSelectedDate));
  EditStartDay.Text := DateToStr(dtStartDate);
  EditEndDay.Text := DateToStr(dtEndDate);

       dtCurrentDate := dtStartDate;
       while dtCurrentDate <= dtEndDate do
         begin
          T1.insert;
          T1.FieldByName('Days').AsDateTime   := dtCurrentDate;
          T1.Post;
            dtCurrentDate := dtCurrentDate + 1;
         end;

  end;

我尝试了 DayofWeek(CalendarView1.Date) 它不起作用，它总是返回“星期六”，十月的所有日子都是十月的第一天

Answer 1

使用

DayofWeek(dtCurrentDate)

而不是

DayofWeek(CalendarView1.Date)

。