输入一个日期，如果返回工作年和工作周！

输入一个日期，如果返回工作年和工作周！

解决方案 »

  1.   

    YearOf(const AValue: TDateTime)
    MonthOf(const AValue: TDateTime)
    MonthOfTheYear(const AValue: TDateTime)
      

  2.   

    WeekOfTheMonth(const AValue: TDateTime): Word; overload;
      

  3.   

    function WeekOf(const AValue: TDateTime): Word;
      

  4.   

    WeekOfTheYear(const AValue: TDateTime): Word; overload;
    等等，一些函数，应该能满足吧。
      

  5.   

    呵呵...又见gzmhero(hihihi)大哥，最勤劳的星星...
      

  6.   

    heluqing(鉴之小河) ( ) 信誉：100 呵呵。说明最近比较空。
      

  7.   

    ShowMessage(formatDateTime('yyyy-mm-dd',now));
       ShowMessage(IntToStr(WeekOf(now)));
       WeekOfTheYear   这些都不正确啊，
      

  8.   

    加入DateUtils單元
    procedure TForm1.Button5Click(Sender: TObject);
    var
      iYear, iWeek: Word;
    begin
      iYear := YearOf(Now);//工作年
      iWeek := WeekOf(Now);//工作周
      Edit2.text := Format('iYear = %d, iWeek = %d',[iYear, iWeek]);
    end;
      

  9.   

    仔细查看Delphi的帮助，里面你需要的所有东西都有。
    很多人遇到问题总是喜欢先问别人，却不喜欢自己独立研究，研究不出来再问人。
    Delphi的帮助中有很多宝库，好好研究去吧。