保存本月第一天到本月最后一天的所有日期记录到数据库

最新推荐文章于 2025-04-09 19:35:54 发布

原创最新推荐文章于 2025-04-09 19:35:54 发布 · 165 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #日期遍历 #decodedate #encodedate

这段代码首先获取当前月份的开始和结束日期，然后遍历这个月的每一天，将每一天的日期转换为TDateTime类型，并添加到Memo1中。同时，它将这些日期写入到一个数据库查询中，更新日期字段。

var
  Year, Month, Day: Word;
  Year1, Month1, Day1: Word;
  I: Integer;
  MyDate: TDateTime;
begin
  Memo1.Clear; 
  DecodeDate(StartOfTheMonth(Now), Year, Month, Day);
  DecodeDate(EndOfTheMonth(Now), Year1, Month1, Day1);
  for I := Day to Day1 do
  begin
    MyDate := EncodeDate((year), (month), i);
    Memo1.Lines.Add(DateToStr(MyDate));
    with Query do
    begin
      close;
      Open;
      Append;
      FieldByName('日期').AsDateTime := MyDate;
      Post;
    end;
  end;
end;

效果。