[VB.NET] Calcolo tempo rimanente con anni, mesi e settimane

[GhostFire]

edit:Ho dato una sistemata usando sempre la stessa formula solo in un altro modo...solo che adesso se diminuisco i weeks vado sotto zero e il rapporto dei mesi/weeks non cambia...

il codice è questo:

  Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick


        If ListView1.Items(0).SubItems(3).Text = 4 Or ListView1.Items(0).SubItems(3).Text >= 4 Then

            ListView1.Items(0).SubItems(2).Text = Int(ListView1.Items(0).SubItems(3).Text / 4)
            ListView1.Items(0).SubItems(3).Text = ListView1.Items(0).SubItems(3).Text Mod 4

        End If

        If ListView1.Items(0).SubItems(2).Text = 12 Or ListView1.Items(0).SubItems(2).Text > 12 Then

            ListView1.Items(0).SubItems(1).Text = Int(ListView1.Items(0).SubItems(2).Text / 12)
            ListView1.Items(0).SubItems(2).Text = ListView1.Items(0).SubItems(2).Text Mod 12

        End If

    End Sub

(Il subitem 3 corrisponde alle settimane)

(Il subitem 2 corrisponde ai mesi)

(Il subitem 1 corrisponde agli anni)

le settimane le diminuisco con questo codice che uso in un altro timer...

ListView1.Items(0).SubItems(3).Text -= 3