Validar rangos de fecha.

[Sil_va]

Hola de nuevo,
Símplemente se trata de escribir en un lenguaje de programación lo que te describía ayer.

Aquí te lo dejo una función que pasándole dos fechas devuelve True si son válidas y False si no lo son

Código:

function validarFecha(byval fecha1 as DateTime, byval fecha2 as DateTime) as Boolean

    ' Número de día del año al que pertenecen las fechas seleccionadas
    Dim diaAño1 as Integer = fecha1. DayOfTheYear 
    Dim diaAño2 as Integer = fecha2.DayOfTheYear 

    ' Número de día de la semana al que pertenecen las fechas seleccionadas
    Dim diaSemana1 as Integer = fecha1.DayOfTheWeak
    Dim diaSemana2 as Integer = fecha2.DayOfTheWeak

    ' Primero comprobamos que las fechas no disten más de 7 días

    if diaAño2 - diaAño1 <= 7 then
        ' Si distan menos de 7 días comprobar que el día de la fecha2 sea mayor o igual que el primero
        if diaSemana2 >= diaSemana1
            valida = True
        else
            valida = False
        end if
    else 
    valida = false
    end if

    return valida
end function

Lo he escrito deprisa y sin siquiera probarlo. Haz alguna prueba. Si no funciona correctametne espero que al menos sirva para orientarte un poco. Si tienes algun problema aquí estamos para hecharte una mano.