Problemas con la función WeekDay(now) en VB
En VB, respecto a la representación de meses y días:
El primer mes es 0, y contando hacia atrás
El primer día de la semana es el domingo, y contando hacia atrás
Uso
Fecha - (Día de la semana(Fecha) - 1)
Esta expresión puede contar
Nota:
día de la semana( ) devuelve el número de la semana actual
Pero en VB, la semana corresponde a un valor numérico:
Fecha 1 2 3 4 5 6
1 2 3 4 5 6 7