Question

delphi题目求解，谢谢帮忙解一下

3个人轮流值班，每个人星期六值班一次，输入日期可以知道是谁值班！
请说清楚一点好吗？我是初学的，比如 显示 一个输入年份的文本框，一个输入月份的，一个输入日期的，还有一个按钮，按钮一按就在label1中显示谁值班，谢谢了

Answer 1

假设有A，B，C三个人
并且假设第一个星期六是A值班

那么第一个星期六设为常数

const FirstSaturday = '2006-8-5';

假设你输入的时间是ADate，那么

uses DateUtils;

function Daily(ADate:TDate):string;
var
Diff:Integer;
Week:Integer;
begin
Week:=DayOfTheWeek(ADate);
if Week<>6 then
begin
result:='';
exit; //如果不是星期六，那么不安排值班
end;
Diff:=DaysBetween(ADate,StrToDate(FirstSaturday));
case (trunc(Diff/7)) mod 3 of //通过对日期差取模来判断当前值班的人
0:result:='A';
1:result:='B';
2:result:='C';
end;
end;

补充：
在按钮的OnClick事件中写
Label1.Caption:=Daily(StrToDate(edit1.text));

再不明白你只好加我QQ了，我做录像演示给你看
123909566