Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
3.8k views
in Technique[技术] by (71.8m points)

excel - VBA Date in Office 365

I created project in VBA Office 2016 32bit and now I am trying running this in Office 365 32-bit (WIN10) and of course I had problem with DataPicker (solved) but now during running code I have error "Complie error: Can't find project or liberary". Problem is this:

currentMonth = Month(Date)

Do you have idea why "Date" can't show me today's date? In Excel 2016 no problems.


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)

Date is not defined here. Is it defined elsewhere? Seems like Date has been redefined.

This code will work for earlier versions too:

Option Explicit

Sub test()
  Dim theDate as Date
  Dim currentMonth As Integer

  theDate = Now()
  currentMonth = Month(theDate)
  Debug.Print currentMonth
End Sub

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...