Application.WorksheetFunction.Year

[Seti]

I have a UDF that needs to compute the year of a date. The date variable (Issue) is declared as a date. When I use Application.WorksheetFunction.Year(Issue) I get a value error. Any suggestions. Thanks.

Seti

 

[Mudface]

VBA has its own Year function, just use that instead-

Dim myYear as Integer

myYear = Year(Date)

 

[Seti]

Thanks for the quick reply. That is indeed correct as well as month and day. The next problem is that I need the DATE function. This does not appear to have a VBA version and I am getting a value error (#VALUE) when I use the following code:

If Issue >= Application.WorksheetFunction.Date(Year(Issue), Month(Birth), Day(Birth)) Then

where Issue and Birth are both date variables.

 

[Mudface]

Take a look at the DateSerial function, does the same thing-

If Issue > = DateSerial(Year(Issue), Month(Birth), Day(Birth)) Then

etc etc

 

[Seti]

Thanks, that seems to do it.