computo periodo feriale

[Piero <p dot blanco at virgilio dot it>]

dim Data as date, convertiTesto as boolean, n as integer
  
  dataDispositivo=CampoDataDispositivo.text
  
  
  Note.text=""
  Data = new date
  if CampoDataDispositivo.text="" then
    msgBox "Manca la data del dispositivo"
    return
  end
  
  if CampoNumeroGiorni.text="" then
    msgBox "Non sono indicati il numero dei giorni per il deposito della
sentenza"
  end
  
  
  
  
  convertiTesto=ParseDate(CampoDataDispositivo.text , Data)
  
  Data.day = Data.day + val(CampoNumeroGiorni.text)
  
  ScadenzadataDeposito.text = Data.shortdate
  
  
  if Data.month=8 or Data.month=9 and Data.day=1or Data.month=9 and
Data.day=2  or Data.month=9 and Data.day=3 or Data.month=9 and Data.day=4 or
Data.month=9 and Data.day=5 or Data.month=9 and Data.day=6 or Data.month=9
and Data.day=7 or Data.month=9 and Data.day=8 or Data.month=9 and Data.day=9
or Data.month=9 and Data.day=10 or Data.month=9 and Data.day=11 or
Data.month=9 and Data.day=12 or Data.month=9 and Data.day=13 or Data.month=9
and Data.day=14 or Data.month=9 and Data.day=15  then
    
    convertiTesto=ParseDate(CampoDataDispositivo.text , Data)
    
    Data.day = Data.day + val(CampoNumeroGiorni.text)
    
    Data.day=Data.day + 46
    
    ScadenzadataDeposito.text = Data.shortdate
    Note.text="Il periodo dei termini di deposito ricade nel periodo
feriale, per cui la decorrenza termini si interrompe il 31 Luglio per
riprendere a decorrere dal 15 Settembre"+chr(34)
  end
---------------
  Ho creato questo programmino che mi calcola il periodo feriale per
calcolare le scadenze.
E' tutto ok se la scadenza ricade nel periodo feriale ma se la scadenza
supera il periodo feriale, allora non mi calcola in aggiunta i 46 giorni di
ferie che soluzione devo adottare?
In buona sostanza se inserisco nel campo inizio decorrenza 7/7/2005 e nel
capo giorni indico 90, in questo caso la routine da me creata non tiene più
conto del periodo feriale, perché la scadenza ricade oltre il 15 settembre,
mentre a me serve che tale periodo venga ricompreso in considerazione del
fatto che i 46 giorni di ferie non devono essere computati come facenti
parte dei 90 giorni.
Spero di essere stato chiaro.
Ringrazio tutti per l'aiuto che mi fornirete
Piero