0

次のコードがあります。

For rowIndex = rowOffset To 15
        Dim currentDate As Date
        Dim nextRowDate As Date
        currentDate = Cells(rowOffset, colIndex).Value
        nextRowDate = Cells(rowIndex + 1, colIndex).Value

        Dim currentYear As Date
        currentYear = DatePart("yyyy", currentDate)

        Dim nextYear As Date
        nextYear = DatePart("yyyy", nextRowDate)

        If currentYear <> nextYear Then
            Call RenderYearStyle(rowIndex, colIndex)
        Else
            Call ClearStyle(rowIndex, colIndex)
        End If
    Next rowIndex

日付部分または「年」関数は、日付の年の部分を返しません。何か案は？

ここに画像の説明を入力

4

2 に答える 2

1

あなた自身の答えを1つだけ修正してください-Year()文字列ではなく整数を返します。イミディエイト ウィンドウ (Ctrl-G) タイプ?typename(year(now))を呼び出して、Enter キーを押します。VBE は、バックグラウンドで整数を文字列に変換するスマートな機能を備えています。

?typename(year(now))
Integer
于 2013-08-14T01:23:19.857 に答える