この発言は
#00657　十兵衛          さんの指定された日が第何週かを取得する
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00659　十兵衛          さん　RE^2:指定された日が第何週かを取得する




十兵衛 さん、おはようございます。(^_^)

今年の１１月みたいに１日が日曜日だと違った値を返します。(^_^;
「GetWeekLine」のtry〜exceptの間を以下のようにすると出来ました。

  DecodeDate(ADate,FY,FM,FD);
  FDW := DayOfWeek(ADate - FD + 1);  // 月初の曜日を求める
  FDW := FDW + FD - 1;        // 第１週の日曜日からの通算日を求める
  Result := (FDW + 6) div 7;  // (FDW / 7)を切り上げて何週目かを求める

                                    JBC01362 アトリエ まっちゃん

Original document by Atelier Macchan 氏 ID:(JBC01362)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。