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

#00658　Atelier Macchan さん　RE:指定された日が第何週かを取得する

#00660　Fermion         さん　RE:指定された日が第何週かを取得する




みなさん、こんにちは。十兵衛です。



指定された日がその月の第何週目かを取得します
但し週の開始は日曜日とします。

取得に失敗した場合は−１を返します。

function GetWeekLine(ADate:TDateTime):Integer;
var
 FY,FM,FD:Word;
 FDW:Integer;
begin
 try
  FDW := DayOfWeek(ADate);
  DecodeDate(ADate,FY,FM,FD);
  if FDW > (FD mod 7) then Result := (FD div 7) + 1
  else Result := (FD div 7) + 2;
 except
  Result := -1;
 end;
end;

以下は使用例です

procedure TForm1.Button1Click(Sender: TObject);
var
 FDate:TDateTime;
 FLine:Integer;
begin
 try
  FDate := StrToDate(Edit1.Text);
  FLine := GetWeekLine(FDate);
  Label1.Caption := Edit1.Text + 'は第' + IntToStr(FLine) + '週目です';
 except
  ShowMessage('失敗');
 end;
end;

                                     98/09/21(月) 23:26 十兵衛(BZT01311)

Original document by 十兵衛          氏 ID:(BZT01311)

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