有關快遞： 按周為單位對數據分析，以一年為准，一年12個月，一個月4周，用什麼函數能直接查出是一年中第幾個周。

uses
  DateUtils;      //-----------      function WeekOfTheYear(const AValue: TDateTime): Word;    

您好！試試這個function: WeekOfTheYear(const AValue: TDateTime): Word;

怎樣 秀在界面上 我想用showmessage(WeekOfTheYear(datetimepicker1.DateTime )) 但是，不行，因為word轉string 的問題

zch2002115您好： 插花， 

 
procedure TForm1.Button8Click(Sender: TObject);
begin
  showmessage(currtostr(WeekOfTheYear(datetimepicker1.DateTime )))
end;

另您可参考： http://delphi.ktop.com.tw/topic.php?topic_id=29258 http://delphi.ktop.com.tw/topic.php?topic_id=52234 http://delphi.ktop.com.tw/topic.php?topic_id=62934 ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

謝謝你們，但我把分數給第一個回答我問題的人。在這裡我問 了2個問題。對不起了。