どのように整数を2つの別々の変数に分けるのですか？

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