2004.5.4 ～2004.10.4 2004.10.5～2004.11.30 2004.12.1～2004.12.31 如上的3个时间段，希望按月划分连续读出后判断之间的关系，整月的返回1，不是整月的返回实际有多少天。。这样的一个逻辑判断如何能实现。请教个为前辈。。。 發表人 - clarky 於 2004/12/20 10:43:21

引言: 2004.5.4 ～2004.10.4 2004.10.5～2004.11.30 2004.12.1～2004.12.31 如上的3???段，希望按月划分???出后判?之?的?系，整月的返回1，不是整月的返回??有多少天。。??的一???判?如何能??。?教??前?。。。 發表人 - clarky 於 2004/12/20 10:43:21

給你個方向, 其實不會很難 1.分別取出年, 月, 日值轉成int 2.利用年, 月值判斷該月的最後一天, 存到一個變數 3.將這個變數與要比對的第一個年/月/日比對, 如果相等代表整月, 如果不是 就用變數-日 1 = 實際天數 4.最二個年/月/日起到最後一個年/月/日的前一筆一定都是回傳1, 這不用判斷 只需以迴圈將月 1 5.最後一個年/月/日同3做法

[quote] 2004.5.4 ～2004.10.4 2004.10.5～2004.11.30 2004.12.1～2004.12.31 如上的3个时间段，希望按月划分连续读出后判断之间的关系，整月的返回1，不是整月的返回实际有多少天。。这样的一个逻辑判断如何能实现。请教个为前辈。。。 可能是我表述的不明确，如果是您说的方法我可以实现，但是我现在不很清楚的是当在一个不定的循环中如何，做到这样的区分判断 n:=3 for i:=0 to n-1 do Begin //读第一片时间段 //以月为单位分析时间片 //写入月列表 End;

引言: [quote] 2004.5.4 ～2004.10.4 2004.10.5～2004.11.30 2004.12.1～2004.12.31 如上的3个时间段，希望按月划分连续读出后判断之间的关系，整月的返回1，不是整月的返回实际有多少天。。这样的一个逻辑判断如何能实现。请教个为前辈。。。 可能是我表述的不明确，如果是您说的方法我可以实现，但是我现在不很清楚的是当在一个不定的循环中如何，做到这样的区分判断 n:=3 for i:=0 to n-1 do Begin //读第一片时间段 //以月为单位分析时间片 //写入月列表 End;

還真不明白, 可否用上面的資料把你想要的結果寫出來!

你可以把日期再用一個type代表

Type
  TPeriod=record
    First:String[8];     //Ex: 20040504
    Last:string[8];      //Ex: 20041004
  end;    Var
  Period:array[0..99] of TPeriod;    ----------------------------------------------------
procedure IsMonth(p:TPeriod):boolean; //檢查是否為整月
function GetDays(p:TPeriod); //計算期間的總日數
procedure SetPeriod(n:integer; f,l:string); //方便設定Period[n]
----------------------------------------------------    n:=3;
for i:=0 to n-1 do
  begin
    if IsMonth(Period[i])=true then
      ShowMessage('1') //整月
    else
      ShowMessage(intToStr(GetDays(Period[i]))); //非整月
  end;//for

----------------------- God bless you! I am Dark_Angel.

------
-----------------------
God bless you!
I am Dark_Angel.