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

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

以下是我迄今为止编写的代码（请单击链接，因为我尚未获得发布图像的权限）：

---

请提供一些指导。

如果if错误，并且如果天数>=7天，则需要重新计算

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

---

我同意if的说法是错误的。我只是添加了另一种方法来完成同样的事情，以防人们感兴趣

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

---

您好，这个问题需要更改，以避免被关闭为离题。1） 请张贴实际的，相关的，代码，而不是图像。2） 请告诉我们错误到底是什么（发布任何异常消息都是好的）3）请告诉我们代码应该做什么。有关如何提问的更多信息，您可以将此链接的帖子代码称为代码而不是图像。具体请参见。

weeks=days\7 days=days-（weeks*7）

weeks=inputDays/7

和

remainingDays=inputDays mod 7

；我不知道您希望从

if days/7然后
中得到什么，因为Peter Buins给了您Mod操作员文档。我和你一起长大<代码>如果
接受条件！引文：“条件必需。表达式。必须计算为True或False，或者计算为可隐式转换为Boolean的数据类型。”我理解。我忘了写最后一段算术，当然，IF语句是非常错误的。谢谢你的帮助。