Primer dia semana

Hola
Esta función devuelve la fecha que pides en función de un número que
le pasas como criterio:

- 1, la fecha inicial
- 2, la fecha final.

<pego>
Public Function FechaInicFin(iTipo As Integer) As Date
Dim i As Integer, dIntermedio As Date
i = Weekday(Date, vbMonday)
Select Case iTipo
Case 1 'Día inicial
i = i - 7
Case 2 'Día final
i = 7 - i
End Select
dIntermedio = DateAdd("d", i, Date)
FechaInicFin = dIntermedio
End Function
</pego>

Salu2
José Mª Fueyo
[MS MVP Access]