VB檢測天數之間的差異

Question

我一直在尋找各種主題，但沒有找到答案，所以我問： 是否有可能檢測到VB中的一天之間的差異？我的意思是，我在星期一運行該程序，他今天對我說的是星期一，並且是日差（昨天是星期天），變量將被重置，因此每天都會使變量有效一天。

Answer 1

你需要這樣的（不能記住，如果你能在vb.net宣佈今天的日期是這樣，但代碼的其餘部分應該是聲音）：

dim tDay as datetime = now() 
Select Case tDay.DayOfWeek 
Case DayOfWeek.Monday 
'Its Monday 
Case DayOfWeek.Tuesday 
'Its Tuesday 
. 
. 
. 
. 
End Select 

其未經測試，但會得到你在右邊線

編輯： 要檢查日期是否已更改並重新分配變量，請將日期和x的變量聲明爲系統設置（My.Settings）。 然後，從那裏其添加到上述的情況：

Case DayOfWeek.Monday 
If My.Settings.weekDayCheck <> DayOfWeek.Monday Then 
My.Settings.weekDayCheck = DayOfWeek.Monday 
My.Settings.x = 20 
Else 
My.Settings.x = My.Settings.x + 1 
End If 

等

Answer 2

棘手的問題。這聽起來像你需要在執行之間存儲程序的狀態。您可以通過將數據保存到磁盤來執行此操作，例如通過使用序列化（http://en.wikipedia.org/wiki/Serialization），然後在下次加載程序時對其進行反序列化（如果它存在於磁盤上）。

從這一點上來說，它只是對昨天的日期檢查的情況：

Sub Main 
    Dim storedDate As DateTime = DateTime.Now.AddDays(-1) 
    Console.WriteLine(DateTime.Now.Date.Subtract(storedDate.Date).TotalDays) 
End Sub 

這裏有一個例子：

Sub Main 
    Dim state As new State() 

    StateHelper.SaveState("C:\\Users\\a-h\\test.xml", state) 
    state = StateHelper.LoadState("C:\\Users\\a-h\\test.xml") 

    Console.WriteLine(DateTime.Now.Date.Subtract(state.DateLastAccessed.Date).TotalDays) 
End Sub 

Class StateHelper 
    Shared Sub SaveState (ByVal fileName As String, ByVal state As State) 
     Dim serializer = new XmlSerializer(GetType(State)) 

     Using fs As New FileStream(fileName, FileMode.Create) 
      serializer.Serialize(fs, state) 
     End Using 
    End Sub 

    Shared Function LoadState (ByVal fileName As String) As State 
     If File.Exists(fileName) 
      Dim serializer = new XmlSerializer(GetType(State)) 

      Using fs As New FileStream(fileName, FileMode.Open) 
       Return serializer.Deserialize(fs) 
      End Using 
     Else 
      Return Nothing 
     End If 
    End Function 
End Class 

Class State 
    Property DateLastAccessed As DateTime = DateTime.Now 
    Property Name As String = Environment.UserName 
End Class