『 VBA (MicrosoftExcel Ver8.0) バージョン』
'---------------------
Function sumple() As Integer
Dim dateFirst As Date
Dim dateNow As Date
dateNow = Date
dateFirst = DateSerial(Format(dateNow, "yyyy"), _
Format(dateNow, "mm"), _
1)
sumple = DateDiff("ww", dateFirst, dateNow, vbMonday, dateFirst) + 1
End Function
'---------------------
「DateDiff」って、結構新しい方の関数なので、
Ver7のVBAでは動作しましぇん！
う〜みゅっ、Ｃやパスカルは、まかせたっ！＞心当たり．
|