Date Serial function

[azhar2006]

Hello guys
How do I make my month field in the function of each month the year and not the current month?

DateSerial(Year(Now()),Month(1-2-3-4-5-6-7-8-9-10-11-12)-1,Day(1))

[andy49]

Sorry azhur not sure what you mean. Can you give an example of what the input would be and what the function would give out?


Sent from my iPhone using Tapatalk

[orange]

?? I agree more clarity in the requirement is needed, or an example.

Sub testazh()
Dim i As Integer 'i represents month 1-12
For i = 1 To 12
Debug.Print DateSerial(year(Date), i, 1)
Next i
End Sub