Post-Admin:
Date: 2006年 11月 08日
Subject: 正しい(?) Weekday関数

Function Weekday2(ByVal inputDate As Variant, Optional weekdayType As Integer = 1)
Dim tmpDate As Date
tmpDate = inputDate
If TypeName(inputDate) <> "String" And inputDate < DateSerial(1900, 3, 1) Then
If inputDate < DateSerial(1900, 1, 1) Then
tmpDate = WorksheetFunction.Text(inputDate + 1, "YYYY/M/D h:m:s")
tmpDate = tmpDate - 1
Else
tmpDate = WorksheetFunction.Text(inputDate, "YYYY/M/D h:m:s")
End If
End If
Select Case weekdayType
Case 1
Weekday2 = Weekday(tmpDate)
Case 2
Weekday2 = Weekday(tmpDate, vbMonday)
Case 3
Weekday2 = Weekday(tmpDate, vbMonday) - 1
End Select
End Function

[PR]
by noaccess | 2006-11-08 11:19


Profile:
ほんとうかなあ?
by noaccess
プロフィールを見る
画像一覧

Calender:
S M T W T F S
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30

*: 検索




*: 最新のトラックバック
うげ!
from ぶろぐ、ぶろぐとき、ぶろげば..
えーと
from ぶろぐ、ぶろぐとき、ぶろげば..
あれ
from ぶろぐ、ぶろぐとき、ぶろげば..

*: メモ帳
ぎゃふん状態にある


*: ブログジャンル
つぶやき

*: 画像一覧