各位 大大 麻烦大家了 请问如何输入年月及第几个星期天 就能得到这个星期1及星期天的年月日啊 本人才疏学浅，希望能指教以下了啊

http://delphi.ktop.com.tw/topic.php?topic_id=42104 http://delphi.ktop.com.tw/topic.php?topic_id=40767 http://delphi.ktop.com.tw/topic.php?topic_id=38442 http://delphi.ktop.com.tw/topic.php?topic_id=25382    參考一下這幾篇內容 應該就能完成你要的轉換 加油!! ---------------------- 台上一分鐘，台下十年功

------
台上一分鐘，台下十年功

谢谢了啊 有点感觉了啊 不过怎么样通过输入某年某月的第几周，得到这周处在这一年中的第几周啊

margaret07：如何輸入年月及第幾個星期天 就能得到這個星期1及星期天的年月日？
根據http://delphi.ktop.com.tw/topic.php?topic_id=38442
hagar版大的方式：
先求得指定年月第一天的星期？aYear:年，AMonth:月，aWeek:指定週
var Week:integer;
dt: TDate;
dt := EncodeDate(aYear, AMonth, 1); // 先求出每月 1 日的值
Week := DayOfWeek(dt)-1;        // 再判斷每月 1 日是星期幾
// 為方便計算原星期日變成0
dt :=IncDay(dt,-1*(Week));      // 這是第一週的日期(大部分是上個月)
接著只要使用公式
dt (7*(aWeek-1)就是要求的週的星期日，加一就是星期一依序類推！
如果要判斷aWeek:指定週是否合法是先求該月的天數，
減去上面dt :=IncDay(dt,-1*(Week));求得的dt，除以七加二就是該月的總週數！
請參考！

Andy Chang

------
Andy Chang

哈哈 是这样吧 我解决了啊 谢谢了啊 function Tzhanbiao.getspecifiedweekfirstdayofyear(AYear, AMonth, AWeek: integer): TDate; var dt: TDate; week:integer; begin dt := EncodeDate(AYear, AMonth, 1); // 求出每月1日的值 week := DayOfWeek(dt); //每月1日是星期几 case AWeek of // AYear ??????? 1: Result :=dt; //第一周 2: Result :=dt (7-1*(Week) 2); // 3: Result :=dt (7-1*(Week) 2) 7*1; 4: Result :=dt (7-1*(Week) 2) 7*2; 5: Result :=dt (7-1*(Week) 2) 7*3; 6: Result :=dt (7-1*(Week) 2) 7*4; 7: Result :=dt (7-1*(Week) 2) 7*5; end; end;

雖然我無法給分 但還是感謝三位大大 小弟剛好在寫股票程式 有關週線和月線的部份 剛好可用上 謝謝啦