1 2 3 4 5 6 7 8 9 10
| Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim time_second As String = DateAndTime.Second(DateAndTime.Now)
Dim date_second_zero As Date = DateAdd(DateInterval.Second, -time_second, DateAndTime.Now)
Dim dateattentepriseencompte As String = DateAdd(DateInterval.Minute, -15, date_second_zero)
For i As Integer = 0 To DataGridView4.RowCount - 1
If DataGridView4.Item(2, i).Value.ToString < dateattentepriseencompte Then
DataGridView4.Rows(i).DefaultCellStyle.ForeColor = Color.Red
End If
Next
End Sub |
Partager