كيفية إستدعاء دالة الفرق بين تارخين في الإستعلام إليكم الدالة
Function Calcdiffy(vdate1 As Date, vdate2 As Date)
Dim vyears As Integer, vMonths As Integer, vDays As Integer
vMonths = DateDiff("m", vdate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vdate1), vdate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vdate1), vdate2)
End If
vyears = vMonths \ 12
vMonths = vMonths Mod 12
Calcdiffy = vyears
End Function
Function CalcdiffM(vdate1 As Date, vdate2 As Date)
Dim vyears As Integer, vMonths As Integer, vDays As Integer
vMonths = DateDiff("m", vdate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vdate1), vdate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vdate1), vdate2)
End If
vyears = vMonths \ 12
vMonths = vMonths Mod 12
CalcdiffM = vMonths
End Function
Function CalcdiffD(vdate1 As Date, vdate2 As Date)
Dim vyears As Integer, vMonths As Integer, vDays As Integer
vMonths = DateDiff("m", vdate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vdate1), vdate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vdate1), vdate2)
End If
vyears = vMonths \ 12
vMonths = vMonths Mod 12
CalcdiffD = vDays
End Function