如何将整数分成两个独立的变量？

Question

我的代码遇到了问题。我制作了一个程序，要求用户输入“天数”。然后将其分为几周和剩余的几天。

以下是我到目前为止编写的代码（请点击链接，因为我还没有获得发布图片的权限）：

一些指导意见将不胜感激。

Answer 1

if是错误的，如果需要重新计算天数> = 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