1.取出DateTimePicker中的年,月,日 var y,m,d: Word; begin DecodeDate(DateTimePicker1.Date,y,m,d); ......
2.月份加1 var y,m,d,i: Word; newdate: TDate; begin DecodeDate(DateTimePicker1.Date,y,m,d); m:=m+1; if m=13 then begin m:=1; y:=y+1; end; repeat try newdate:=EncodeDate(y,m,d); except newdate:=0; end; d:=d-1; until newdate<>0; ......
----------------------------------------------
-