喫茶XRAYトップページ

[スレッド全体
]

[12250] Re4:Googleカレンダーからのパクリ サンプル返信 削除
2018/9/10 (月) 22:45:06 taka
▼ Mr.XRAYさん
> ▼ takaさんどうもです.
>
> > ほかの暦ソースから自動抽出して検証してみたのですが、間違いがありました。
>
> あららっ.お手数おかけしました.
> さて...っと...


未検証部分の大部分が比較用にもってきたデータの間違いでした。

問題の部分だけ抜粋しました

1966/2/11 期待値[False] 実際の値[True]
1979/9/23 期待値[False] 実際の値[True]
1995/7/20 期待値[False] 実際の値[True]
2017/12/23 期待値[True] 実際の値[False]

procedure TForm1.Button2Click(Sender: TObject);
  const bstr : array[Boolean] of string = ('False', 'True');
  procedure check(ADate : TDateTime; ExpectedRes : boolean);
    var b: boolean;
        name : string;
  begin
    b := IsSpecialHoliday(ADate, name);
    if (b <> ExpectedRes) then
       Memo1.Lines.Add(FormatDateTime('yyyy/m/d', ADate)
                     + Format(' 期待値[%s] 実際の値[%s]',
                      [ bstr[ExpectedRes], bstr[b] ]));
  end;
begin
  // 間違い検証用
  check(EncodeDate(1966,2,11), False); // 建国記念の日 1967-
  check(EncodeDate(1979,9,23), False);
  check(EncodeDate(1979,9,24), True);  // 秋分の日 1979/9/24
  check(EncodeDate(1995,7,20), False); // 海の日 1996-
  check(EncodeDate(2017,12,23), True); // 天皇誕生日
end;


[12251] Re5:Googleカレンダーからのパクリ サンプル返信 削除
2018/9/10 (月) 23:14:38 Mr.XRAY
▼ takaさんどうもです.

> 未検証部分の大部分が比較用にもってきたデータの間違いでした。
>
> 問題の部分だけ抜粋しました


わわわっ ! ありがとうございます.
他の祝日の検証と思い,何かテストプログラムを,と思っていたところです.
思っていただけですが (^^;


[12252] Re6:Googleカレンダーからのパクリ サンプル返信 削除
2018/9/10 (月) 23:46:49 taka
▼ Mr.XRAYさん
> ▼ takaさんどうもです.
>
> > 未検証部分の大部分が比較用にもってきたデータの間違いでした。
> >
> > 問題の部分だけ抜粋しました
>
> わわわっ ! ありがとうございます.
> 他の祝日の検証と思い,何かテストプログラムを,と思っていたところです.
> 思っていただけですが (^^;


もう1個ありました。
check(EncodeDate(2020,8,11), False);

dYear >= 2016 に
追加で dYear <> 2020
がいるんだと思います。

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82