能用一个二维数组把全年的日期和对应的星期几读到里面吗?

Question

delphi是否有这样的函数,能把比如2005年的365天从1月1日,星期六,一直到12月31日,星期六,顺序的读到一个二维数组里吗?如果有,请指点,如果没有,要告知:)

Answer 1

可以的，你可以只记每个月的第一天是星期几就成。
因为其它的天数可以计算得到。
mod 7就OK了！

Answer 2

请问这个循环怎么设计啊?
for i=1 to 365
如何反过来取i=1时,对应的日期啊?而且步长怎么计数?请指点啊

Answer 3

你看看哪个热心人给你写个函数吧，直接判断一个日期是星期几可以用DayOfTheWeek或者DayOfWeek，自己查帮助有介绍，这2个函数有区别的。

Answer 4

WeekIndex : Array[1..7] of String[6] = ('星期日','星期一','星期二','星期三','星期四','星期五','星期六');
  TDayandWeek= array [0..356,0..1] of String;procedure GetDayandWeed(sYear: String; DayandWeek: TDayandWeek);
var
  i,iMax, iMin: Integer;
begin
  iMax:=Trunc(StrToDate(sYear+'-12-31'));
  iMin:=Trunc(StrToDate(sYear+'-01-01'));
  for i:=0 to iMax-iMin-1 do
  begin
    DayandWeek[i,0]:= DateToStr(iMin+i);
    DayandWeek[i,1]:= WeekIndex[DayOfWeek(iMin+i)]
  end;
end;随手写写，没在编辑器中调试过，自己调试一下，仅供参考