我試圖在 VBA 中獲得 2 個不同日期的年份之間的值差異(整數),并且還需要一個月(例如 2020 - 2019,我想要的結果是 1)但我的代碼只給了我一個日期。有任何想法嗎?
For i = 2 To PnLD1WS.Cells(1, 1).End(xlDown).Row
PnLD1WS.Cells(i, 164).Value = ((((DateSerial(Year(PnLD1WS.Cells(i, 13)), 0, 0) - DateSerial(Year(PnLD1WS.Cells(i, 3)), 0, 0)) * 12) (DateSerial(0, (Month(PnLD1WS.Cells(i, 13))), 0) - (DateSerial(0, (Month(PnLD1WS.Cells(i, 3))), 0)))))
Next i
uj5u.com熱心網友回復:
您可以使用 DateDiff:
DateDiff("yyyy", dat1, dat2)
使用您的代碼:
...
With PnLD1WS
.Cells(i, 164).Value = DateDiff("yyyy", .Cells(i, 13), PnLD1WS.Cells(i, 3))
End with
....
轉載請註明出處,本文鏈接:https://www.uj5u.com/yidong/437785.html
上一篇:Range(Cell.Find("價格標簽"),Range(Cells.Find("價格標簽")).End(xlDown))
