Month Name from Date range (1 Viewer)

[syedadnan]

I have two date fields in table one is "From" and another is "To" i want in query or report that suppose if date from is 31/08/2016 and to is 30/11/2016 then month name should be displayed like this in new query field or report text box

Aug-16,Sept-16,Oct-16,Nov-16

 

[RuralGuy]

You would need to create you own procedure that returns the string value; a User Defined Function (UDF). Have you done one before as it requires using VBA code.

 

[pbaldy]

?format(date(),"mmm-yy")
Nov-16

 

[pbaldy]

Ack! Sorry Allan, didn't see your post.

 

[syedadnan]

You would need to create you own procedure that returns the string value; a User Defined Function (UDF). Have you done one before as it requires using VBA code.

No i cant write vba, if you plz help here :banghead:

 

[RuralGuy]

I'll see if I can't put something together for you.

 

[MarkK]

Here's one way, not well tested...

Function GetInterveningMonths(ByVal d1 As Date, d2 As Date) As String
    Dim tmp As String
    
    Do While d1 < DateAdd("m", 1, d2)
        tmp = tmp & ", " & Format(d1, "mmm-yy")
        d1 = DateAdd("m", 1, d1)
    Loop
    If Len(tmp) Then GetInterveningMonths = Mid(tmp, 3)
End Function

 

[RuralGuy]

Nice code MarkK.

 

[syedadnan]

Here's one way, not well tested...

Function GetInterveningMonths(ByVal d1 As Date, d2 As Date) As String
    Dim tmp As String
    
    Do While d1 < DateAdd("m", 1, d2)
        tmp = tmp & ", " & Format(d1, "mmm-yy")
        d1 = DateAdd("m", 1, d1)
    Loop
    If Len(tmp) Then GetInterveningMonths = Mid(tmp, 3)
End Function

Tested done and absolutely accurate to my requirement.. Thanks a lot Markk...

 

[MarkK]

Thanks RG, you bet sy.