جمع درساعات

[reza850101]

دوستان من از بين پرسنل ميخواهم كساني بيشترين تاخير رادارندشناسايي كنم
البته من خواستم از max استفاده كنم كه جوابگو نبود ، ضمنا شايد بتوان از طريق سورت كردن هم اينكار را كرد ، اما بيشترين كارم اينه كه پرسنلي كه بيشترين تاخير را در اين چندين ماهه داشتن شناسايي كنم ممنون ميشم وقت بگذاريد

oخيلي خيلي ممنون اين فايل نمونه ات خيلي كارم را راه انداخت -
ممكنه راهنمايي هم در مورد اين خواستم بكنيد : افرادي كه بيشترين (مثلا تاخير) را داشته اند در ماههاي مختلفت پيداشود مثلا در ماه 3 - اميري درماه 4 و 5 كريمي و...

[reza850101]

دوستان محبت كنيد

[bemilove]

دوستان کمک!

[bemilove]

مدیرمحترم انجمن آقایamirzazadeh

شما آقا
کمک کنید....ممنون.....

[bemilove]

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

[bemilove]

بازم...کمک یکی جوبمو بده عزیزان

[mahdi_107]

در خط

Set rs = db.OpenRecordset("SELECT * FROM t_pas WHERE (t_pas.personel)=" & Form_f_pas_doreh.Combo0)

تيبل t_pas فيلدي به نام personel ندارد (t_pas.personel)

[dadsara]

سلام
این فانکشن را به صورت زیر تغییر دهید

Function GetTimeRoozanehTotal3()

         Dim db As Database, rs As Recordset

         Dim totalhours As Long, totalminutes As Long

         Dim days As Long, Hours As Long, Minutes As Long

         Dim interval As Variant, j As Integer

         

         Set db = DBEngine.Workspaces(0).Databases(0)

        ' Set rs = db.OpenRecordset("SELECT * FROM t_pas WHERE " & "(t_pas.personel)=" & [Forms]![f_pas_doreh].[Combo0])

         Set rs = db.OpenRecordset("SELECT * FROM t_pas WHERE " & "(t_pas.name)=" & [Forms]![f_pas_doreh].[Combo0])

         Set rs = db.OpenRecordset("SELECT * FROM t_pas WHERE (t_pas.date) between '" & [Forms]![f_pas_doreh].[Text1] & " ' and '" & [Forms]![f_pas_doreh].[Text2] & " '")

                                                         

         interval = #12:00:00 AM#

'

            While Not rs.EOF

               interval = interval + rs![pastime]

               rs.MoveNext

            Wend

         totalhours = Int(CSng(interval * 24))

         totalminutes = Int(CSng(interval * 1440))

         Hours = totalhours Mod 24

         Minutes = totalminutes Mod 60

     ' GetTimeRoozanehTotal = totalhours & "ÓÇÚÊ" & Minutes & "ÏÞíÞå"

        GetTimeRoozanehTotal3 = totalhours & ":" & Minutes

      End Function

[bemilove]

عزیزان تعغیرات انجام شد ولی 2 مشکل دارد.1- اگر من پاس اقای حسن را از تاریخ 89/01/01 تاتاریخ 89/01/10 گزارش بگیرم.مجموع پاس ایشان 69:55 دقیقه نشان می دهد ولی در اصل مجموع (به صورت دستی ودقیق) 25:10 دقیقه است.(اشتباه محاسباتی).....2- اگر این گزارش را برای فرد حسین انجام دهیم ، هم 69:55 نشان میدهد در صورتیکه حسین در این مدت پاسی نداشته است.

[bemilove]

مشکل پا برجاست!!

[bemilove]

مشکل هنوز پابرجاست!

[bemilove]

عزیزان تعغیرات انجام شد ولی 2 مشکل دارد.1- اگر من پاس اقای حسن را از تاریخ 89/01/01 تاتاریخ 89/01/10 گزارش بگیرم.مجموع پاس ایشان 69:55 دقیقه نشان می دهد ولی در اصل مجموع (به صورت دستی ودقیق) 25:10 دقیقه است.(اشتباه محاسباتی).....2- اگر این گزارش را برای فرد حسین انجام دهیم ، هم 69:55 نشان میدهد در صورتیکه حسین در این مدت پاسی نداشته است

[mahdi_107]

نمونت اصلاح شد. ببين همينه

[جعفر88]

من هم در جمع ساعت در گزارش مشکل دارم.آن تاپیکی که معرفی کردید کمکی به من نمی کند.تمام تالار را زیر رو کردم یک مورد پیدا کردم که در فرم جمع ساعت محاسبه می کند.اما جمع ساعت در گزارش جایی ندیدم .لطفا کمکم کنید.مثال ضمیمه است (جمع ساعت آقای حسن را در گزارش محاسبه کنید)............بیسار ممنون

دوست عزيز سلام
موضوعي كه ايجاد كردين خيلي طولاني شده و از حوصله دنبال كردم خارج شد ولي نمي دونم مشكلي كه نقل قول كردم حل شده يا نه؟ در گزارش دوم فايلتون(منظور فايل با نام test) يك كادر متني (text box) در قسمت Report Footer بزارين و خاصيت Control Source آن را به =Sum(takhir) تغيير دهيد .

[bemilove]

سلام - مشکل با پاسخ mahdi_107 حل گردید...ممنون از پیگیری شما

[bemilove]

دوستان عزیز، مورد پاس هاییک فرد رد یک دوره زمانی مشکل داره -----------ساعت با آنچه هست نمی خواند

[mahdi_107]

ببينيد منظورتون همين بود

[bemilove]

مهدي آقا كد شما كاملا درست جواب مي دهد.....ولي اگر بر اساس ما‍‍ژول موجود در برنامه هم درست كني آنوقت يك برنامه رفرنس جمع ساعت خواهد بود كه بايد در برنامه هاي كاربردي قرار داد...

[mahdi_107]

سلام
در ماژول MdHooroof يك تابع با نام TimeSum ايجاد كردم
بررسي بفرماييد.