manera ordenada de obtener la fecha del último viernes

Question

sin importar el día que llamo a la función.

Sé que podría escribir un caso seleccionado de día de la semana (ahora), me preguntaba si había una manera más ordenada de hacerlo.

Answer 1

¿Este para que empiece? Acabo de hacer una prueba rápida y parecía funcionar bien.

Private Sub LastFriday() 

    Dim iWeekday As Integer, LastFridayDate As Date 

    iWeekday = Weekday(Now(), vbFriday) 

    LastFridayDate = Format(Now - (iWeekday - 1), "dd-mmm-yy") 

End Sub 

Answer 2

DatePart('dddd', now) 

o

DatePart('dddd', #1/1/2010#) 

... con una fecha explícita.

Answer 3

DateAdd ("d", -1 - Día de la semana (ahora), ahora)

Answer 4

Esta función encontrará todos los viernes para el último mes, usted puede cambiar para adaptarlo a otros días como el Lunes "oldDay = 2", etc el método funcionará a partir de hoy, pero se puede cambiar eso para que se adapte

Dim todaysDate Como Fecha = Date.Today Dim oldDay As Integer Dim thisWeek Como Fecha

Dim firstWeek As Date 
    Dim secondWeek As Date 
    Dim thirdWeek As Date 
    Dim fourthWeek As Date 


    ''finds the Friday of the end of the current week 
    ''No mattter what day you are working 
    Dim daycount As Integer 

    oldDay = Weekday(todaysDate) 
    thisWeek = todaysDate 

    If oldDay < 6 Then 
     daycount = 6 - oldDay 
     thisWeek = thisWeek.AddDays(+daycount) 
    ElseIf oldDay > 6 Then 
     daycount = oldDay - 6 
     thisWeek = thisWeek.AddDays(-daycount) 
    End If 


    firstWeek = thisWeek 
    secondWeek = thisWeek 
    thirdWeek = thisWeek 
    fourthWeek = thisWeek 

    fourthWeek = firstWeek.AddDays(-28) 
    thirdWeek = thirdWeek.AddDays(-21) 
    secondWeek = secondWeek.AddDays(-14) 
    firstWeek = firstWeek.AddDays(-7)