Dim Data1 As Date, Data2 As Date
Dim d As Integer, M As Integer, G As Integer
'
If Data1 > Data2 Then
M = DateDiff("m", Data2, Data1)
d = DateDiff("d", Data2, DateAdd("m", -M, Data1))
Else
M = DateDiff("m", Data1, Data2)
d = DateDiff("d", Data1, DateAdd("m", -M, Data2))
End If
If d < 0 Then
M = M - 1
d = d + 30
End If
G = M \ 12
M = M Mod 12
With txtResult
If G > 0 And M > 0 And d > 0 Then
.Text = CStr(G) & " г. " & CStr(M) & " мес. " & CStr(d) & " д."
ElseIf G > 0 And M > 0 And d < 1 Then
.Text = CStr(G) & " г. " & CStr(M) & " мес. "
ElseIf G > 0 And M < 1 And d > 0 Then
.Text = CStr(G) & " г. " & CStr(d) & " д."
ElseIf G > 0 And M < 1 And d < 1 Then
.Text = CStr(G) & " г. "
ElseIf G < 1 And M > 0 And d > 0 Then
.Text = CStr(M) & " мес. " & CStr(d) & " д."
ElseIf G < 1 And M > 0 And d < 1 Then
.Text = CStr(M) & " мес. "
Else
.Text = CStr(d) & " д."
End If
End With
|
