En una ocassion hice esta consulta pero a pesar de las respuestas no he
conseguido salirme con la mia.
Partiendo de una tabla en la que existen dos campos:
Fecha inicio y fecha fin.
y otra de tarifas en las que incluye tarifa 1 y tarifa 2

RESPONDE EVA
============

Ay Santy, Santy... WhiteWolf se va a enfadar :)

Copio a continuación la respuesta que te dio el 9/05/02

*************Inicio copioteo**********
'DALES VALOR A ESTAS VARIABLES DE TAL
'SUERTE QUE SEAN IGUAL A TUS RANGOS
'PARA DETERMINAR INICIO Y FIN DE UNA TEMPORADA
dim dteTemp1_INI as Date, dteTemp1_FIN as Date
dim dteTemp2_INI as Date, dteTemp2_FIN as Date
dim dteTemp3_INI as Date, dteTemp3_FIN as Date
dim dteTemp4_INI as Date, dteTemp4_FIN as Date
'Contadores de dias por Temporadas
Dim ContadorTemp1 as Integer, ContadorTemp2 as Integer
Dim ContadorTemp3 as Integer, ContadorTemp4 as Integer
'Variables para Almacenar tarifas
Dim TARIFA_TEMP1 As Currency, TARIFA_TEMP2 As Currency
Dim TARIFA_TEMP3 As Currency, TARIFA_TEMP4 As Currency

'YA QUE LES HAYAS DADO VALOR A LAS
'VARIABLES DE ARRIBA, SACAMOS EL
'RANGO A ANALIZAR VIEJO
dim dteInicio as Date, dteFin as Date

'Hacemos una consulta, corrige el codigo esto es solo una idea
'acerca de que debemos consultar Viejo
SELECT FECHA_INICIO_CONTRATO, FECHA_FIN_CONTRATO
FROM CONTRATOS
WHERE CLIENTE = XCLIENTE

'Asignamos Variables
dteInicio = CONTRATOS!FECHA_INICIO_CONTRATO
dteFin = CONTRATOS!FECHA_FIN_CONTRATO

DO WHILE dteInicio <= dteFin
    SELECT CASE dteInicio
        CASE dteTemp1_INI To dteTemp1_FIN
                ContadorTemp1 = ContadorTemp1 +1
        CASE dteTemp2_INI To dteTemp2_FIN
                ContadorTemp2 = ContadorTemp2 +1
        CASE dteTemp3_INI To dteTemp31_FIN
                ContadorTemp3 = ContadorTemp3 +1
        CASE dteTemp4_INI To dteTemp4_FIN
                ContadorTemp4 = ContadorTemp4 +1
    END SELECT
    dteInicio = dteInicio + 1
LOOP

'Costo de Renta por Dias de Temporada 1
Dim CostoTemp1 as Currency, CostoTemp2 as Currency
Dim CostoTemp3 as Currency, CostoTemp4 as Currency
CostoTemp1 = ContadorTemp1 * TARIFA_TEMP1
CostoTemp2 = ContadorTemp2 * TARIFA_TEMP2
CostoTemp3 = ContadorTemp3 * TARIFA_TEMP3
CostoTemp4 = ContadorTemp4 * TARIFA_TEMP4

Y LISTO!!!

Espero Te Sirva y No me hagas hecho perder mi VALIOSISIMO TIEMPO VIEJO!!!
;-)

Saludos a Todos Viejos
WhiteWolf SW
*************Fin copioteo**********

¿Qué problemas has encontrado en este código? Cuéntanos y los vamos
resolviendo

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)