|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ奇ｿｽｿｽﾔ計ｿｽZ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
gaucho 2005/02/16(ｿｽｿｽ) 19:47:38
ｿｽJｿｽnｿｽｿｽｿｽAｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾆ趣ｿｽｿｽｿｽｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽvｿｽZｿｽｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
1.2/17ｿｽ`3/16ｿｽﾆ難ｿｽｿｽﾍ…1ｿｽｿｽﾔゑｿｽ
2.2/17ｿｽ`4/16ｿｽﾆ難ｿｽｿｽﾍ…2ｿｽｿｽﾔゑｿｽ
3.2/01ｿｽ`2/28ｿｽﾆ難ｿｽｿｽﾍ…1ｿｽｿｽﾔゑｿｽ
4.2/01ｿｽ`2/15ｿｽﾆ難ｿｽｿｽﾍ…0.5ｿｽｿｽﾔゑｿｽ
datediff("m",xxx,xxxｿｽjｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽﾔゑｿｽｿｽｿｽｿｽA4ｿｽ満ゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟに会ｿｽｿｽLｿｽﾌようｿｽﾈコｿｽ[ｿｽhｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽBｿｽiｿｽｿｽｿｽﾛは呼び托ｿｽｿｽﾅ戻ゑｿｽlｿｽﾌ擾ｿｽｿｽｿｽｿｽ_2ｿｽﾊゑｿｽlｿｽﾌ五難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽjｿｽB
Function GetMonthDiff(dtStart As Date, dtEnd As Date) As Single
Dim nDays(12) As Integer
Dim nYear As Integer
Dim nDay As Integer
Dim nDaySpan As Integer
nDays(1) = 31: nDays(2) = 28: nDays(3) = 31
nDays(4) = 30: nDays(5) = 31: nDays(6) = 30
nDays(7) = 31: nDays(8) = 31: nDays(9) = 30
nDays(10) = 31: nDays(11) = 30: nDays(12) = 31
nDay = nDays(Month(dtStart))
' ｿｽ[ｿｽNｿｽlｿｽｿｽ
If Month(dtStart) = 2 Then
nYear = Year(dtStart)
If nYear Mod 4 = 0 And nYear Mod 100 <> 0 Or nYear Mod 400 = 0 Then
nDay = nDay + 1
End If
End If
' ｿｽJｿｽnｿｽｿｽｿｽAｿｽIｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽZｿｽｿｽｿｽｿｽ
nDaySpan = DateDiff("d", dtStart, dtEnd)
GetMonthDiff = (nDaySpan + 1) / nDay
End Function
ｿｽｿｽｿｽｿｽﾅ、ｿｽdｿｽl1,3,4ｿｽﾍ厄ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA2.ｿｽﾌ場合ｿｽｿｽｿｽﾆ、
2.1ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽnDayｿｽｿｽ28ｿｽﾅ包ｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗでゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌようｿｽﾉ鯉ｿｽｿｽｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽZｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾆ良ゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽ
ｿｽmｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾈ擾ｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
LESIA 2005/02/16(ｿｽｿｽ) 21:18:37
ｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽﾟでゑｿｽｿｽｿｽｿｽH
' ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽZｿｽｿｽｿｽｿｽ
GetMonthDiff = DateDiff("m", dtStart, dtEnd)
If GetMonthDiff = 0 Then
' ｿｽJｿｽnｿｽｿｽｿｽAｿｽIｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽZｿｽｿｽｿｽｿｽ
nDaySpan = DateDiff("d", dtStart, dtEnd)
GetMonthDiff = (nDaySpan + 1) / nDay
End If
gaucho 2005/02/17(ｿｽｿｽ) 09:12:21
ｿｽｿｽｿｽﾔ趣ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽAｿｽｿｽｿｽtｿｽｿｽｿｽ轤ｸｿｽﾅゑｿｽｿｽｿｽｿｽB
5.2/01ｿｽ`3/15 ｿｽc 1.5
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽWｿｽｿｽｿｽXｿｽg1ｿｽｿｽｿｽｿｽｿｽA2ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ場合ｿｽﾍ、1ｿｽA2ｿｽﾆ表ｿｽｿｽｿｽA
ｿｽWｿｽｿｽｿｽXｿｽgｿｽﾉなゑｿｽﾈゑｿｽｿｽ鼾ｿｽﾍ、1.5ｿｽA2.4ｿｽﾈどの擾ｿｽｿｽｿｽｿｽ_ｿｽ¥ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽWｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽfｿｽﾆゑｿｽｿｽﾄは、
(1)ｿｽJｿｽnｿｽｿｽｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽﾌ場合ｿｽcｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ31ｿｽｿｽｿｽｿｽ
(2)ｿｽJｿｽnｿｽｿｽｿｽｿｽ2ｿｽｿｽｿｽｿｽｿｽｿｽﾌ場合ｿｽcｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ28ｿｽｿｽｿｽｿｽiｿｽ[ｿｽNｿｽｿｽlｿｽｿｽｿｽj
ｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ 2005/02/17(ｿｽｿｽ) 10:06:53
ｿｽｿｽｿｽｿｽｿｽ_ｿｽ¥ｿｽｿｽｿｽﾍ誤差ｿｽｿｽｿｽoｿｽｿｽ謔､ｿｽﾈ・ｿｽEｿｽE
gaucho 2005/02/17(ｿｽｿｽ) 10:11:25
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ差ｿｽﾍ誤差ｿｽﾌ範囲難ｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾌゑｿｽAｿｽｿｽｿｽﾍ例がｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽi0.5ｿｽｿｽｿｽｿｽｿｽjｿｽｿｽｿｽｿｽｿｽｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽPｿｽﾊでゑｿｽｿｽﾄ。
ｿｽｿｽｿｽﾉ鯉ｿｽｿｽﾊゑｿｽ0.6ｿｽﾈどになゑｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、ｿｽｿｽｿｽｿｽﾍ、
ｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾉはゑｿｽｿｽｿｽｿｽｿｽxｿｽﾌ目茨ｿｽｿｽﾆゑｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈ擾ｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽ
LESIA 2005/02/17(ｿｽｿｽ) 10:16:24
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Function GetMonthDiff(dtStart As Date, dtEnd As Date) As Single
Dim nDay As Integer
Dim nMonthSpan As Integer
Dim nDaySpan As Integer
'ｿｽIｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾌ難ｿｽｿｽｿｽ
nDay = Day(DateSerial(Year(dtEnd), Month(dtEnd) + 1, 0))
' ｿｽJｿｽnｿｽｿｽｿｽAｿｽIｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽZｿｽｿｽｿｽｿｽ(ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ)
nMonthSpan = DateDiff("m", dtStart, dtEnd)
' ｿｽJｿｽnｿｽｿｽｿｽAｿｽIｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽZｿｽｿｽｿｽｿｽ(ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ)
nDaySpan = DateDiff("d", DateAdd("d", -1, DateAdd("m", nMonthSpan, dtStart)), dtEnd)
GetMonthDiff = nMonthSpan + nDaySpan / nDay
End Function
gaucho 2005/02/17(ｿｽｿｽ) 10:47:27
LESIAｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜで暦ｿｽｿｽzｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
>nDay = Day(DateSerial(Year(dtEnd), Month(dtEnd) + 1, 0))
"YYYY/MM/0"ｿｽwｿｽｿｽｿｽDateSerialｿｽｿｽｿｽｿｽﾆ、"YYYY/MM-1"ｿｽｿｽｿｽﾌ最終ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽﾌは知ｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽiｿｽｿｽﾅ抵ｿｽｿｽﾗゑｿｽｿｽｿｽHelpｿｽﾉ載ゑｿｽｿｽｿｽ
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽcｿｽj
ｿｽｿｽｿｽ示抵ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽﾍとてゑｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
