| ■No86377 (shu さん) に返信
すみません。
以前教えていただいた No86344 のどの部分の差し替えですか?
> ■No86376 (mako さん) に返信
>
> Dim isFirst = True
> For Each row In _tbl.Select("", "t")
> Dim dt = row.Field(Of Date)("t")
> If isFirst OrElse dt.Minute = 0 OrElse dt.Minute = 30 Then
> With .CustomLabels.Add(dt.AddMinutes(-3).ToOADate, dt.AddMinutes(3).ToOADate, dt.ToString("HH:mm"))
> .RowIndex = 0
> End With
> End If
> isFirst = False
> Next
> |