|
ゴメン、比較演算の勘違い
> '?Clngが無意味のでは無く、上記行で、dt1、dt2共同日としているので
> '「CLng(Day(dt1) <> Day(dt2))」は常に「-1」と成る為、
> 'dt2 = DateSerial(Year(dt2), Month(dt2) - 1, Day(dt2))としても同じ?
> '意味は、dt1とdt2が常に同年、同月、同日と成ります
> dt2 = DateSerial(Year(dt2), Month(dt2) + CLng(Day(dt1) <> Day(dt2)), Day(dt2))
上記は間違い、以下の様です
'?Clngが無意味のでは無く、上記行で、dt1、dt2共同日としているので
'「CLng(Day(dt1) <> Day(dt2))」は常に「0」と成る為、
'dt2 = DateSerial(Year(dt2), Month(dt2) - 0, Day(dt2))としても同じ?
'意味は、dt1とdt2が常に同年、翌月、同日と成ります
dt2 = DateSerial(Year(dt2), Month(dt2) + CLng(Day(dt1) <> Day(dt2)), Day(dt2))
因って、
> '結論として、「dt1 = Cells(4, 4).Value」〜「End If」までを
> 'dt2 = Cells(4, 4).Valueの1行に置き換えても同じ様な結果に成る気がします?
此れも間違い
'結論として、
'dt2 = DateSerial(Year(dt2), Month(dt2) + CLng(Day(dt1) <> Day(dt2)), Day(dt2))
'を
'dt2 = DateSerial(Year(dt2), Month(dt2), Day(dt2))
'としても同じと思われます
|
|