VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2006/08/22(Tue) 17:40
投稿者LESIA
Eメール
URL
タイトル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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -