1:怎样得到某一天在一段时间中是第几天
如9月1日是在3月23日开始的第几天2:怎样响应datatimepicker和monthcalendar中日期改变的事件?
如设置一个时钟,每隔2分钟使上述控件中天数加一,程序响应并作一次运算3:datatimepicker和monthcalendar如何因程序运算使自身日期改变并显示出来?4:这两个控件与数据库中数据的结合、互动?

解决方案 »

  1.   

    1、
    uses DateUtils;procedure TForm1.Button1Click(Sender: TObject);
    var
      Date1, Date2: TDate;
    begin
      Date1 := Date + 100;
      Date2 := Date;
      ShowMessage(IntToStr(DaysBetween(Date2, Date1)));
    end;
    2、OnChange事件
    3、DateTimePicker1.Date := DateTimePicker1.Date + 1;
    4、自己开发数据敏感控件TDBDataTimePicker————————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    ————————————————————————————————————
      

  2.   

    双手赞成lxpbuaa(桂枝香在故国晚秋)