اختلاف دو تاریخ شمسی

[alirezamirzahasan]

من دنبال ماژولی میگردم که دو تا تاریخ رو بگیره و اختلاف آنها رو به integer برگردونه

[morteza_lll]

سلام دوست عزیز ببین خوبه


Function TAFAZOL(date2, date1)
Dim D22, dd1, DD2, MM1, MM2, YY1, yy2, yy, x1, x2, ZZ1, ZZ2
On Error GoTo 10
dd1 = Right(date1, 2)
DD2 = Right(date2, 2)
x1 = Right(date1, 5)
x2 = Right(date2, 5)
MM1 = Left(x1, 2)
MM2 = Left(x2, 2)
x1 = Right(date1, 8)
x2 = Right(date2, 8)
YY1 = Left(x1, 2)
yy2 = Left(x2, 2)
If MM1 = "01" Then ZZ1 = 0
If MM1 = "02" Then ZZ1 = 31
If MM1 = "03" Then ZZ1 = 62
If MM1 = "04" Then ZZ1 = 93
If MM1 = "05" Then ZZ1 = 124
If MM1 = "06" Then ZZ1 = 155
If MM1 = "07" Then ZZ1 = 186
If MM1 = "08" Then ZZ1 = 216
If MM1 = "09" Then ZZ1 = 246
If MM1 = "10" Then ZZ1 = 276
If MM1 = "11" Then ZZ1 = 306
If MM1 = "12" Then ZZ1 = 336
If MM2 = "01" Then ZZ2 = 0
If MM2 = "02" Then ZZ2 = 31
If MM2 = "03" Then ZZ2 = 62
If MM2 = "04" Then ZZ2 = 93
If MM2 = "05" Then ZZ2 = 124
If MM2 = "06" Then ZZ2 = 155
If MM2 = "07" Then ZZ2 = 186
If MM2 = "08" Then ZZ2 = 216
If MM2 = "09" Then ZZ2 = 246
If MM2 = "10" Then ZZ2 = 276
If MM2 = "11" Then ZZ2 = 306
If MM2 = "12" Then ZZ2 = 336
TAFAZOL = (ZZ2 + Val(DD2) + Val(yy2) * 365) - (ZZ1 + Val(dd1) + Val(YY1) * 365)
10

[morteza_lll]

End Function

یادت نره