在form上放了三个combobox,第一个combobox1专门用于显示年,第二个combobox2专
门用于显示月,第三个combobox3专门用于显示日

解决方案 »

  1.   

    在combobox3 的onClick里计算出来当前combobox2的值所对应的天数加上去就可以了!
      

  2.   

    procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);Delphi帮助上的
    procedure TForm1.Button1Click(Sender: TObject);var
      Present: TDateTime;
      Year, Month, Day, Hour, Min, Sec, MSec: Word;
     begin
      Present:= Now;
      DecodeDate(Present, Year, Month, Day);
      Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
        + IntToStr(Month) + ' of Year ' + IntToStr(Year);
      DecodeTime(Present, Hour, Min, Sec, MSec);
      Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
        + IntToStr(Hour);
    end;
      

  3.   

    你自己这样就可以实现了啊,
    只不过形成时间的时候try一下,看看日期是否正确就可以了
      

  4.   

    用DeCOdeDate和EnCodeDate函数解决.