SoloCodigo

Hola, quiero calcular un campo fecha, según una tabla de frecuencias, de forma que segun la frecuencia definida por un item, me diga la fecha de caducidad de un tema concreto.

Así, he probado de esta forma, pero me dice que "El texto restante no parece ser de la fórmula"

Dim fechacadu as date

 
IF {MODEL_REC.ID_FREC_MOD} = "01" THEN fechacadu = DateAdd ("d", 1, {V_ACTOS_MEDICOS.FECHA})
ELSE IF {MODEL_REC.ID_FREC_MOD} = "02" THEN fechacadu = DateAdd ("d", 7, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "03" THEN fechacadu = DateAdd ("m", 1, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "04" THEN fechacadu = DateAdd ("m", 2, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "05" THEN fechacadu = DateAdd ("m", 3, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "06" THEN fechacadu = DateAdd ("yyyy", 1, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "07" THEN fechacadu = DateAdd ("yyyy", 2, {V_ACTOS_MEDICOS.FECHA})  
ELSE IF {MODEL_REC.ID_FREC_MOD} = "08" THEN fechacadu = DateAdd ("d", 14, {V_ACTOS_MEDICOS.FECHA})  
ELSE {V_ACTOS_MEDICOS.FECHA}

A alguien se le ocurre donde está el fallo??

Utilizo Crystal Reports 8.

Saludos y Gracias!!!

Jose!