Utilice la programación VB para encontrar la fecha del viernes correspondiente a la semana de un día determinado
Por ejemplo, hoy:
MsgBox "El viernes de esta semana es " amp Date() 6 - Día laborable(Date())
Cualquier día es:
Dim d1 como fecha, d2 como fecha
d1 = #2014-6-20# '20 de junio de 2014
d2 = d1 6 - Día laborable(d1) 'd2 es 2014- 6-20 La fecha del viernes de la semana