如何將整數分成兩個單獨的變量？

Question

我遇到了我的代碼問題。我制定了一個程序，要求用戶輸入「天數」，然後分爲幾周和剩餘天數。

這裏是我到目前爲止已經編寫的代碼（請點擊鏈接，因爲我沒有得到允許張貼圖片還）：

一些指導，將不勝感激。

Answer 1

如果是錯誤的，並且如果天數≥7天需要重新計算。

Dim weeks As Integer 
    Dim days As Integer 
    '.... 
    weeks = days \ 7 
    If days >= 7 Then 
     days = days - (weeks * 7) 
     '... 
    End If 

Answer 2

我同意if語句不正確。我只是增加另一種方式來完成同樣的事情，以防人們感興趣。

Dim weeks As Integer = 0 
Dim days As Integer = 0 
'... 
If days >= 7 Then 
    weeks = days/7 
    days = days % 7 
    '... 
End If