Puoi servirti della funzione Weekday
http://www.w3schools.com/vbscript/func_weekday.asp per determinare di quale giorno della settimana si tratta. In modo molto semplice e comprensibile, puoi fare come segue:
'prima imposto il valore della data a cui dovrò aggiungere i giorni
var miadata
miadata = CDate("01/02/2006")
'imposto il valore base di giorni da aggiungere
var valorebase
valorebase = 2
Select Case Weekday(miadata)
Case vbFriday:
valorebase = valorebase + 2 'se la data è un venerdì, incremento il valore base di altri 2 giorni
Case vbSaturday:
valorebase = valorebase + 1 'se la data è un sabato, incremento di un altro giorno
End Select
'ora effettuo l'aggiunta dei giorni con la funzione DateAdd <a target="_blank" href="http://www.w3schools.com/vbscript/func_dateadd.asp" rel="nofollow">http://www.w3schools.com/vbscript/func_dateadd.asp</a>
var datafinale
datafinale = DateAdd("d", valorebase, miadata)
Modificato da BrightSoul il 25 maggio 2006 12.02 -
Modificato da BrightSoul il 25 maggio 2006 12.02 -