کد:Sub ExcelIran() code = Sheet7.Range("H31").Value Range("report").ClearContents Set Database = Range("database") For i = 1 To Database.Rows.Count If Database(i, 1) = code And Database(i, 1).Rows.Hidden = False Then q = Split(Database(i, 2).Value, "/") 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(Time_To_Second(Database(i, 5).Value), Time_To_Second(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 sums = first + second hour = Int(sums / 60) minute = sums Mod 60 sumhour = hour + minute / 100 End Function
علاقه مندی ها (Bookmarks)