'次回処理を行う年・月・日 (起動時はNow、つまり当日) Dim nextYear As Integer = Now.Year Dim nextMonth As Integer = Now.Month Dim nextDay As Integer = Now.Day '次回処理を行う日時 (ここでは当日の17:30を指定) Dim dummyTime As New Date(nextYear, nextMonth, nextDay, 17, 30, 0) Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim thisTime As Date = Now If dummyTime <= thisTime Then Timer1.Enabled = False '▼ここに行いたい処理を書く '▲ '次回処理を行う年月日を更新(次の日をセット) Dim nextTime As Date = thisTime.AddDays(1) nextYear = nextTime.Year nextMonth = nextTime.Month nextDay = nextTime.Day '次回処理を行う日時 (ここでは明日の17:30を指定) dummyTime = New Date(nextYear, nextMonth, nextDay, 17, 30, 0) Timer1.Enabled = True End If End Sub