محاسبه مرخصی

[mfr]

با سلام خدمت دوستان واساتید محترم ... چندی پیش فایلی را استاد قاسمیان تهیه فرمودند که بسیار جای تقدیر و تشکر را دارد ... فقط من نکته ای را فراموش کردم به ایشان بگویم ... در محاسبه مرخصی ساعتی .. اگه در یک روز بیش از یکبار مرخصی ساعتی رفته باشیم آخرین بار را محاسبه میکنه و بقیه رو لحاظ نمیکنه .. لطفا اگه لطف فرمایید این رو هم محاسبه کنه .. بسیار ممنونم [حل شده] محاسبه مرخصی

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[majid_mx4]

با سلام

ضمن تشکر فروان از دوست و استاد ارجمند جناب قاسمیان وکسب اجازه از ایشان

دستورات جناب قاسمیان را به شکل زیر تغییر دهید .

Sub ExcelIran()
code = Sheet7.Range("H31").Value
Range("report").ClearContents
Database = Range("database")
For i = 1 To UBound(Database)
    If Database(i, 1) = code Then
        q = Split(Database(i, 2), "/")
        Y = q(0)
        M = q(1)
        D = q(2)
        If Database(i, 6) = ChrW(1585) & ChrW(1608) & ChrW(1586) & ChrW(1575) & ChrW(1606) & ChrW(1607) Then
            
          '
            Sheet7.Cells(2 * M, D + 2) = 1
        Else
       If Sheet7.Cells(2 * M + 1, D + 2) > 0 Then
            
         
            Sheet7.Cells(2 * M + 1, D + 2) = Database(i, 5) + Val(Sheet7.Cells(2 * M + 1, D + 2))
            Else
            Sheet7.Cells(2 * M + 1, D + 2) = Database(i, 5)
        End If
    End If
     End If
Next i
End Sub

با تشکر میر

[mfr]

بسیار بسیار ممنونم