[حل شده] محاسبه مرخصی

[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]

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