VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/08/22(Tue) 17:40 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 先週の月曜日の求め方 |
> こんにちわ
>
> 先週の月曜日の求め方はどのようにすればよいでしょうか？
> 対象は日曜から〜土曜にのいずれかの日付をもとに、先週の月曜日が
> 何日だったのかが、知りたいです。
> 申し訳ありませんが、宜しくお願い致します。
今日が何曜日か調べれば、先週の月曜日は何日前になるか分かります。
Dim LastMonday As Integer
Select Case Weekday(Date)
Case vbSunday
LastMonday = Day(DateAdd("d", -6, Date))
Case vbMonday
LastMonday = Day(DateAdd("d", -7, Date))
Case vbTuesday
LastMonday = Day(DateAdd("d", -8, Date))
Case vbWednesday
LastMonday = Day(DateAdd("d", -9, Date))
Case vbThursday
LastMonday = Day(DateAdd("d", -10, Date))
Case vbFriday
LastMonday = Day(DateAdd("d", -11, Date))
Case vbSaturday
LastMonday = Day(DateAdd("d", -12, Date))
End Select
MsgBox LastMonday
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）