کد:
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) = sumhour(Database(i, 5), 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
Function sumhour(first, second)
Dim f As Integer, s As Integer, sums As Integer, hour As Integer, minute As Integer
f = first * 100
s = second * 100
sums = f + s
hour = Int(sums / 60)
minute = sums Mod 60
sumhour = hour + minute / 100
End Function
علاقه مندی ها (Bookmarks)