Torna al Thread
'Restituisce i giorni passati
Public Function Somma(ByVal totale As Integer, ByVal DalDateTimePicker As Date, ByVal AlDateTimePicker As Date)
'ANNI
Dim VarAnni As Object
VarAnni = DateDiff("yyyy", DalDateTimePicker, AlDateTimePicker)
If AlDateTimePicker < DateSerial(AlDateTimePicker.Year, DalDateTimePicker.Month, DalDateTimePicker.Day) Then
VarAnni = VarAnni - 1
End If
'--------------------------------
'MESI
Dim VarMesi As Object
VarMesi = DateDiff("m", DalDateTimePicker, AlDateTimePicker)
VarMesi = VarMesi - (VarAnni * 12)
If DatePart("d", DalDateTimePicker) > DatePart("d", AlDateTimePicker) Then
VarMesi = VarMesi - 1
End If
'--------------------------------
'GIORNI
Dim GiornoInizio As Object
Dim GiornoFine As Object
Dim giorni As Object
Dim TempGiornoInizio As Object
GiornoInizio = DatePart("d", DalDateTimePicker)
GiornoFine = DatePart("d", AlDateTimePicker)
If GiornoFine >= GiornoInizio Then
giorni = GiornoFine - GiornoInizio
Else
TempGiornoInizio = DateAdd("m", -1, AlDateTimePicker)
giorni = DateDiff("d", TempGiornoInizio, AlDateTimePicker) - (GiornoInizio - GiornoFine)
End If
Somma = totale + 365 * VarAnni + 30 * VarMesi + giorni
End Function