Private Sub Document_Open()
    Call calcDateDiff
End Sub
    
Sub calcDateDiff()
    Dim arr
    Dim tbl As table
    Dim dat1 As Date
    Dim years As Integer
    Dim months As Integer
    Dim allMonths1 As Integer
    Dim allMonths2 As Integer
    Dim allMonths3 As Integer
    Dim hours1 As Long
    Dim hours2 As Long
    Dim hours3 As Long
        
    Set tbl = ThisDocument.Tables(1)
        
    arr = Split(tbl.Cell(2, 3).Range.Text)
    dat1 = DateValue(arr(0) & " " & arr(1))
        
    allMonths1 = DateDiff("m", dat1, Now)
    years = allMonths1 \ 12
    months = allMonths1 - years * 12
    If months = 0 Then
        tbl.Cell(3, 3).Range.Text = years & " років"
    Else
        tbl.Cell(3, 3).Range.Text = years & " років " & months & " місяців"
    End If
        
    hours1 = DateDiff("h", dat1, Now)
    tbl.Cell(4, 3).Range.Text = hours1 & " годин"
        
    arr = Split(Split(tbl.Cell(5, 3).Range.Text, ";")(0))
    years = arr(0)
    If UBound(arr) < 2 Then
        months = 0
    Else
        months = arr(2)
    End If
    
    allMonths2 = years * 12 + months
    allMonths3 = allMonths1 - allMonths2
    years = allMonths3 \ 12
    months = allMonths3 - years * 12
    If months = 0 Then
        tbl.Cell(9, 3).Range.Text = vbCr & years & " років" & vbCr
    Else
        tbl.Cell(9, 3).Range.Text = vbCr & years & " років" & vbCr & months & " місяців"
    End If
        
    arr = Split(Trim(Split(tbl.Cell(5, 3).Range.Text, ";")(1)))
    hours2 = arr(0)
    hours3 = hours1 - hours2
    tbl.Cell(9, 3).Range.Text = tbl.Cell(9, 3).Range.Text & hours3 & " годин"
End Sub