modifica macro per calcolo date

If Grammar = True Then

    'sGrammar(0) = "s" 'inglese
    sGrammar(0) = "i" 'taliano
    
End If

'italiano
If ShowAll Or iYears > 0 Then
    sYears = iYears & " anno" & sGrammar((iYears = 1)) & ", "
End If
If ShowAll Or iYears > 0 Or iMonths > 0 Then
    sMonths = iMonths & " mese" & sGrammar((iMonths = 1)) & ", "
End If
sDays = iDays & " giorno" & sGrammar((iDays = 1))

Function YearsMonthsDays(Date1 As Date, Date2 As Date) As String
Dim dTempDate As Date
Dim iYears As Integer
Dim iMonths As Integer
Dim iDays As Integer
Dim sYears As String
Dim sMonths As String
Dim sDays As String
Dim sGrammar As String
If Date1 > Date2 Then
    dTempDate = Date1
    Date1 = Date2
    Date2 = dTempDate
End If

iYears = DateDiff("yyyy", Date1, Date2)
Date1 = DateAdd("yyyy", iYears, Date1)
If Date1 > Date2 Then
    iYears = iYears - 1
    Date1 = DateAdd("yyyy", -1, Date1)
End If

iMonths = DateDiff("M", Date1, Date2)
Date1 = DateAdd("M", iMonths, Date1)
If Date1 > Date2 Then
    iMonths = iMonths - 1
    Date1 = DateAdd("m", -1, Date1)
End If

iDays = DateDiff("d", Date1, Date2)

If iYears > 0 Then
    If iYears = 1 Then sGrammar = "o" Else sGrammar = "i" ' <<<<<<
    sYears = iYears & " ann" & sGrammar & ", "
End If
If iYears > 0 Or iMonths > 0 Then
    If iMonths = 1 Then sGrammar = "e" Else sGrammar = "i" ' <<<<<<
    sMonths = iMonths & " mes" & sGrammar & ", "
End If
sDays = iDays & " giorni" 
YearsMonthsDays = sYears & sMonths & sDays
End Function

Function YearsMonthsDays(Date1 As Date, _
    Date2 As Date, Optional ShowAll As Boolean = False, _
    Optional MinusText As String = "Minus ") As String
    
    
Dim dTempDate As Date
Dim iYears As Integer
Dim iMonths As Integer
Dim iDays As Integer
Dim sYears As String
Dim sMonths As String
Dim sDays As String
Dim sGrammar(-1 To 0) As String
Dim sMinusText As String

If Date1 > Date2 Then
    dTempDate = Date1
    Date1 = Date2
    Date2 = dTempDate
    sMinusText = MinusText
End If

iYears = DateDiff("yyyy", Date1, Date2)
Date1 = DateAdd("yyyy", iYears, Date1)
If Date1 > Date2 Then
    iYears = iYears - 1
    Date1 = DateAdd("yyyy", -1, Date1)
End If

iMonths = DateDiff("M", Date1, Date2)
Date1 = DateAdd("M", iMonths, Date1)
If Date1 > Date2 Then
    iMonths = iMonths - 1
    Date1 = DateAdd("m", -1, Date1)
End If

iDays = DateDiff("d", Date1, Date2)


If iYears > 0 Then
    If iYears = 1 Then
        sYears = iYears & "anno" & ", "
    Else
        sYears = iYears & " anni" & ", "
    End If
End If
If iMonths > 0 Then
    If iMonths = 1 Then
        sMonths = iMonths & " mese" & ", "
    Else
        sMonths = iMonths & " mesi" & ", "
    End If
End If
If iDays = 1 Then
    sDays = iDays & " giorno"
Else
    sDays = iDays & " giorni"
End If

YearsMonthsDays = sMinusText & sYears & sMonths & sDays

End Function

Public Function GMA(Date1 As Date, Date2 As Date) As String
Dim intYears As Integer, intMonths As Integer, intDays As Integer
Dim iG As String, iM As String, iA As String
  intMonths = DateDiff("m", Date1, Date2)
  intDays = DateDiff("d", DateAdd("m", intMonths, Date1), Date2)
  If intDays < 0 Then
    intMonths = intMonths - 1
    intDays = DateDiff("d", DateAdd("m", intMonths, Date1), Date2)
  End If
  intYears = intMonths \ 12
  intMonths = intMonths Mod 12
  If intDays > 1 Or intDays = 0 Then iG = "giorni" Else iG = "giorno"
  If intMonths > 1 Or intMonths = 0 Then iM = "mesi" Else iM = "mese"
  If intYears > 1 Or intYears = 0 Then iA = "anni" Else iA = "anno"
  GMA = intYears & " " & iA & " " & intMonths & " " & iM & " " & intDays & " " & iG
End Function

If intYears = 0 And intMonths = 0 And intDays > 1 Then
     GMA = intDays & " " & iG

If intYears = 0 And intMonths = 0 And intDays >= 1 Then
     GMA = intDays & " " & iG

ElseIf intYears = 0 And intMonths >= 1 And intDays = 0 Then
GMA = intMonths & " " & iM

ElseIf intYears >= 1 And intMonths = 0 And intDays = 0 Then
GMA = intYears & " " & iA

GMA = GMA_2    

If intYears = 0 And intMonths = 0 And intDays >= 1 Then
GMA_2 = intDays & " " & iG

Public Function GMA(Date1 As Date, Date2 As Date) As String
Dim intYears As Variant, intMonths As Variant, intDays As Variant
Dim iG As String, iM As String, iA As String
  intMonths = DateDiff("m", Date1, Date2)
  intDays = DateDiff("d", DateAdd("m", intMonths, Date1), Date2)
  If intDays < 0 Then
    intMonths = intMonths - 1
    intDays = DateDiff("d", DateAdd("m", intMonths, Date1), Date2)
  End If
  intYears = intMonths \ 12
  intMonths = intMonths Mod 12
  If intDays > 1 Or intDays = 0 Then iG = "giorni" Else iG = "giorno"
  If intMonths > 1 Or intMonths = 0 Then iM = "mesi" Else iM = "mese"
  If intYears > 1 Or intYears = 0 Then iA = "anni" Else iA = "anno"
  If intDays = 0 Then
    iG = ""
    intDays = ""
  End If
  If intMonths = 0 Then
    iM = ""
    intMonths = ""
  End If
  If intYears = 0 Then
    iA = ""
    intYears = ""
  End If
  GMA = intYears & " " & iA & " " & intMonths & " " & iM & " " & intDays & " " & iG
End Function