procedure TForm1.DateTimePicker1CloseUp(Sender: TObject); begin if ListBox1.Items.IndexOf(datetostr(datetimepicker1.Date))<0 then ListBox1.Items.Add(datetostr(datetimepicker1.Date)); end;procedure TForm1.DateTimePicker1Change(Sender: TObject); begin case DayOfWeek(DateTimepicker1.Date) of 1: edit1.Text:='日'; 2: edit1.Text:='一'; 3: edit1.Text:='二'; 4: edit1.Text:='三'; 5: edit1.Text:='四'; 6: edit1.Text:='五'; 7: edit1.Text:='六'; end end;年和月在datetimepicker中可以直接改的啊
2.在del6 和del7 中用weekofday().
3.year(),month().
begin
if ListBox1.Items.IndexOf(datetostr(datetimepicker1.Date))<0 then
ListBox1.Items.Add(datetostr(datetimepicker1.Date));
end;procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
case DayOfWeek(DateTimepicker1.Date) of
1: edit1.Text:='日';
2: edit1.Text:='一';
3: edit1.Text:='二';
4: edit1.Text:='三';
5: edit1.Text:='四';
6: edit1.Text:='五';
7: edit1.Text:='六';
end
end;年和月在datetimepicker中可以直接改的啊
2.在del6 和del7 中用weekofday().
3.year(),month().
up!