دانشمند عزیز!
جوابتون را دادم!
دقت کنید!
خوب بخونید
خوب استفاده کنید.
شما دو تاریخ را از تکست باکس میگیرید به دو متغیر تاریخ نصبت میدید از هم کم میکنید!
از dll هم استفاده نمیکنید!
بعد با ابراز تاسف اشتباه خودتون را در استفاده از برنامه میاندازید گردن این dll !
Dim d1 As Date
Dim d2 As Date
d1 = PDC.PersianToDate(txt_d1.Text)
d2 = PDC.PersianToDate(txt_d2.Text)
txt_diff = DateDiff("d", d1, d2)
برنامهای که نوشتید اینطوری اصلاح کنید!
انوقت ها که تازه برنامه نویسی را یاد گرفته بودم وقتی برنامه مینوشتم و جوابی که میگرفتم اونی نبود که باید میگرفتم به کامپیوتر فحش میدادم که حالیش نمیشه من چی میگم!