fechas,semanas

pachus
31 de Mayo del 2004
Necesito ayuda para obtener el primer dia de la semana de una fecha, por ejemplo:
02/04/2004 ,primer dia de la semana 01/04/2004
30/03/2004,primer dia de la semana 29/03/2004
Que sea el primer dia del mismo mes
gracias

Oscar
31 de Mayo del 2004
Dim dtFecha
dtFecha = Date
Do While WeekDay(dtFecha) <> vbMonday
dtFecha = DtFecha -1
Loop
MsgBox CStr(dtFecha)

Lo he picado directamente en el mensaje y puede haber algún error de sintáxis. Espero que te ayude.

Un saludo.