perlで、経過した週を得るには？

基準を1980/12/1とした場合、
現在の日付までで何週間経過したかを計算するにはどうようなコードを書けば良いのでしょうか？

自分なりに色々調べてみたのですが、
経過日、（累計の月、日）といった計算は、知ることが出来たのですが、
何週間が経過したと言うのが、わからなく
ご存知の方、お手数ですがご伝授して頂けませんか。
お願い致します。

質問者からの補足コメント

• 説明が不十分だったみたいで、すいませんでした。
  
  日曜日から土曜日（７日間）を週として、定義した上で、
  何週間経過したと言うのが知りたいのです。
  
  最初の週と現在の週は、カウントしない事になりますが。。。
  ※最初の週が、日曜日だった場合は、カウントする。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/12/16 15:07

• 具体的な内容をお話しないと駄目な事でしょうか？
  
  ＞＞1980年12月1日は月曜日ですよね. そこで, 例えば 1981年1月28日 (水曜日) までは「何週間」と計算するのですか? あるいは, 1981年2月1日 (日曜日) までなら何週間?
  
  前の方の補足で説明したあるのでそちらを参照して下さい。

  No.2の回答に寄せられた補足コメントです。 補足日時：2016/12/18 09:24

• 本文から>>
  最初の週と現在の週は、カウントしない事になりますが。。。
  ※最初の週が、日曜日だった場合は、カウントする。
  
  何度も書いているのですが・・・・・・
  一週間を（日曜日～土曜日）とし、７日間あった場合カウントする！！！！！
  
  ７日間以下だった場合はカウントしない！！！！！

  No.3の回答に寄せられた補足コメントです。 補足日時：2016/12/18 12:35

No.3 回答者： kmee 回答日時： 2016/12/18 10:55

(1)曜日は簡単に調べられるので、調べる

(2)(1)の曜日を元に、「最初の日曜日」を求める
(3)「現在」の曜日を元に、「最後の日曜日」を求める
(4) (2)の「最初の日曜日」から(3)の「最後の日曜日」までの経過日を求める
(5) (4) を 7で割る

(2),(3)をあなたの目的にあうように調整してください。


> 具体的な内容をお話しないと駄目な事でしょうか？

あった方がお互いのためになると思います。
説明抜けとかに気付けるし、お互いの認識の確認もなるし、プログラムの検証にも有用です。

1980/12/1(月) **この日を基準にする** , 0週目、0週間経過
1980/12/6(土) 5日経過, 0週目、0週間経過
1980/12/7(日) 「最初の日曜日」, 1週目、「現在の週は数えない」から0週間経過?次の週になったから1週間経過?
1980/12/12(土) 1週目最後の日, 1週目、「現在の週は数えない」から0週間経過?「日〜土」が揃ったので1週間経過?
1980/12/13(日) 2週目、1週間経過?2週間経過?
...

補足にある内容でも、複数の解釈ができることがあります。
特に、「現在」が土曜日の場合、どうしたいのかがわかりません。

No.2 回答者： Tacosan 回答日時： 2016/12/18 00:30

そもそも

「基準を1980/12/1とした場合、現在の日付までで何週間経過したかを計算する」
ってなにをしたいんでしょうか?

1980年12月1日は月曜日ですよね. そこで, 例えば 1981年1月28日 (水曜日) までは「何週間」と計算するのですか? あるいは, 1981年2月1日 (日曜日) までなら何週間?

No.1 回答者： tatsu99 回答日時： 2016/12/16 10:37

経過日（累計の日）を７で割ればよいのではないでしょうか。