Question : Saving a filename with the week number of the last sunday

I'm using this snippet to determine the last sundays date, based on today but I need to save the week as part of filename i.e. that Sunday (22/06/08) lies in the 4th week. so saving it as Junewk4.xls

Code Snippet:

         
             P = Weekday(Now(), vbMonday)
P = Int(Now()) - P

Open in New Window

Select All

Answer : Saving a filename with the week number of the last sunday

try something like this:

                       
             Dim MonthValue As Integer
Dim MonthDays As Integer
 
MonthValue = DatePart("m", p, vbMonday)
MonthDays = DatePart("d", DateAdd("d", -1, CDate("1/" & MonthValue + 1 & "/2008")))
 
Dim fileName As String
fileName = MonthName(DatePart("m", p, vbMonday), False) & "wk" & CInt(MonthDays / 7) & ".xls"
 
Debug.Print fileName

Open in New Window

Select All

Question : Saving a filename with the week number of the last sunday

I'm using this snippet to determine the last sundays date, based on today but I need to save the week as part of filename i.e. that Sunday (22/06/08) lies in the 4th week. so saving it as Junewk4.xls Code Snippet: 1: 2: P = Weekday(Now(), vbMonday) P = Int(Now()) - P Open in New Window Select All

Answer : Saving a filename with the week number of the last sunday