[VBS] Calcolo giorno precedente ad una data

[anima77]

Originariamente inviato da MItaly
In primo luogo mi sono reso conto che c'è un modo più semplice per ottenere il giorno precedente:

data=DateAdd("d",-1,Date())

per cui usa il seguente codice:

Function GetYesterdayDate()
    Dim data,stringadata
    data=DateAdd("d",-1,Date())
    stringadata=LPad(Year(data),"0",4)
    stringadata=stringadata & LPad(Month(data),"0",2)
    stringadata=stringadata & LPad(Day(data),"0",2)
    GetYesterdayDate=stringadata
End Function

Function LPad(stringToPad, paddingChar, totalLength)
    Dim tpaddingChar
    If totalLength<=Len(stringToPad) Then LPad=stringToPad:Exit Function
    tpaddingChar=Left(paddingChar,1)
    LPad=String(totalLength-Len(stringToPad),tpaddingChar) & stringToPad
End Function

GetYesterdayDate ti restituisce la data di ieri nel formato yyyymmdd, mentre LPad viene usata per effettuare il padding delle varie stringhe alla lunghezza voluta.

Grazie Ora funziona tutto...