Use DateSerial and Weekday : DateSerial « Date Functions « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Date Functions
3. DateSerial

Use DateSerial and Weekday

 

Public Function DeliveryDateFast(intYear As Integer, intMonth As Integer)
    Dim datStart        As Date
    datStart = DateSerial(intYear, intMonth, 8)
    DeliveryDateFast = datStart + (7 - Weekday(datStart, vbThursday))
End Function
Sub Main()
   Debug.Print DeliveryDateFast(1998,7)
End Sub 

 

Related examples in the same category