یک کنترل قبلا گذاشته بودم:

Dim s As New Payam_ActiveX_lib.Calender

s.DateDifference("1385/01/01", "1386/01/01", pr_DayInterval, pr_Persian)


اینم لینکش
https://barnamenevis.org/showthread.php?t=58091