好久没来了，大家帮帮我解决个关于日期数据的小问题，谢了（在线等待）。

Question

DOW := DayOfWeek(DateTime);                   获得星期几的信息
 case DOW of                          
   1 :  WeekStr:= '星期天';      
   ......
  7：WeekStr:='星期六'
 end;

Answer 1

DateTime := Now
DOW := DayOfWeek(DateTime);                   获得星期几的信息
 case DOW of                          
   1 :  WeekStr:= '星期天';      
   ......
  7：WeekStr:='星期六'
 end;

Answer 2

1 DayOfWeek
2 Now - DayOfWeek(Now) - 1 
3 DecodeDate(Now, year, month, day);
 EncodeDate(year, month, 1);
4 DecodeDate(Now, year, month, day);
 EncodeDate(year, 1, 1);

Answer 3

1、见以上各位回答
2、结合一，可以
=Now-DayOfWeek(Now());  
3、4在阳历的情况下就是搞笑

Answer 4

你在delphi中写入dayOfWeek 后，在上面按F1卡看帮助

Answer 5

2.如何得到本周的第一天是几月几日？
var 
  AYear, AWeekOfYear, ADayOfWeek: Word;
  WeekFirstDayDate:TDateTime;
begin
  DecodeDateWeek(Date, AYear, AWeekOfYear, ADayOfWeek);
  WeekFirstDayDate := EncodeDateWeek(AYear, AWeekOfYear, DayMonday);
end;3.如何得到本月的第一天是几月几日？
4.如何得到本年的第一天是几月几日？
var 
  AYear, AMonth, ADay: Word;
  MonthFirstDayDate:TDateTime;
  YearFirstDayDate:TdateTime;
begin;
  DecodeDate(Date, AYear, AMonth, ADay);
  MonthFirstDate := EncodeDate(AYear, AMonth, 1);
  YearFirstDayDate:= EncodeDate(AYear, 1, 1);
end;