Проверка TimeofDay на значение appsetting

Question

Я пишу консольную программу VB, которая будет запускать функцию в определенное время суток. Это то, что я до сих пор.

Sub Main() 
    Do 
    Dim backupTime As String 

    backupTime = My.Settings.backupTime 


    While TimeOfDay = backupTime 
     Threading.Thread.Sleep(2000) 
    End While 


    backup() 
    loop 
End Sub 

«BackUpTime», который идет речь хранится в файле App.Config

<userSettings> 
    <ZipAJob_Timed.My.MySettings> 
     <setting name="backupTime" serializeAs="String"> 
      <value>#01:59:00 PM#</value> 
     </setting> 
    </ZipAJob_Timed.My.MySettings> 
</userSettings> 

Проблема заключается в том, что «Do While» сдержек цикла каждые 2 секунды для «TimeOfDay» для соответствия «backupTime». Но это может привести к тому, что программа не работает, потому что она пропустила матч на 2 секунды. Поэтому либо мне нужно, чтобы он игнорировал секунды, либо имел только TimeofDay.minutes/hours и backupTime.minutes/hours.

Я изучил Parsing .. но не совсем уверен, где я должен начать.

Answer 1

Почему бы вам просто не использовать < вместо =?

While TimeOfDay < backupTime 
    Threading.Thread.Sleep(2000) 
End While 

Но вместо цикла я либо использовал бы Таймер, либо Windows-задачу, которая начинается в заданное время.