alguien me podria orientar sobre como hacer unas funciones que:

 1. Devuelva el primer dia del aņo de acuerdo a una fecha ingresada
 2. Devuelva el primer dia del mes de acuerdo a una fecha ingresada
 3. Devuelva el primer dia de la semana de acuerdo a una fecha ingresada

 Es decir, si yo entro: 30/09/2002

 La uno me devuelve : 01/01/2002
 La dos me devuelve:  01/09/2002
 La tres me devuelve:  30/09/2002 (Porque hoy es lunes, primer dia de la
 semana)


RESPUESTA
=========
Mas o menos asi:

    Para La Primera
        Msgbox "01/01/" & Year(Fecha)

    Para la Segunda:
        MsgBox "01/" & Month(Fecha) & "/" & Year(Fecha)

    Para le Tercera...
    Dim Dia     As Long

        Dia = Weekday(Fecha, vbMonday)
        While Dia <> 1
            Fecha = DateAdd("D", -1, Fecha)
            Dia = Weekday(Fecha, vbMonday)
        Wend
        MsgBox Fecha

'// Donde fecha es la fecha ke Necesitas.... Suerte!

Att. El Tiko