اختلاف زمان تاریخ و ساعت ورود و تاریخ و ساعت خروج

[dadypour]

با عرض سلام
احتراماً می خواهم اختلاف زمانی بین تاریخ و ساعت پذیرش در یک کلینیک و تاریخ و ساعت خروج از کلینیک را برحسب ساعت بدست آورم.مثلاً فردی در تاریخ 30/11/1390 ساعت 20 پذیرش می شود و در تاریخ 01/12/1390 ساعت 14 ترخیص شده است می خواهم اختلاف این دو محدوده را بصورت ساعت داشته باشم.

[dadypour]

در صورت امکان پاسخ دهید.تاریخ ها بصورت شمسی هستند

[Abbas Amiri]

در صورت امکان پاسخ دهید.تاریخ ها بصورت شمسی هستند

در صورت امکان پاسخ دهید.تاریخ ها بصورت شمسی هستند
از تابع زیر استفاده کنید :


Function TimeDiff(Date1 As String, Time1 As Date, Date2 As String, Time2 As Date) As Single
Dim d As Integer, h As Single
d = Diff(Date1, Date2)
If Time1 > Time2 Then
h = 24 - val((Time1 - Time2)) * 24
d = d - 1
Else
h = (Time2 - Time1) * 24
End If
TimeDiff = d * 24 + Int(h)
End Function

Example:
Tex1=TimeDiff ("13920101",#10:15#,"13920105",#10:10#)
شما میتوانید بجای مقادیر نام کنترلهایی که حاوی چنین مقادیری هستند قراردهید


توضیح اینکه تابع Diff از سری توابع تاریخ فارسی مربوط به آقای آزادی است . شما میتوانید ازتوابع مشابه هم استفاده کنید