timespan

Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click

        Dim totalDia As Long = (Now.AddDays(1).Date - DateTime.Now).TotalMilliseconds

        'Dim t As TimeSpan = TimeSpan.FromDays(31)



        Dim cantidad_dias_mes As Integer = (Now.AddMonths(12).Date - DateTime.Now).TotalDays
        Dim t1 As TimeSpan = TimeSpan.FromDays(cantidad_dias_mes)
        Dim cantidad_dias_semana As Integer = (Now.AddDays(2 * 7).Date - DateTime.Now).TotalDays
        Dim t2 As TimeSpan = TimeSpan.FromDays(cantidad_dias_semana)
        Dim cantidad_dias_dia As Integer = (Now.AddDays(1).Date - DateTime.Now).TotalDays
        Dim t3 As TimeSpan = TimeSpan.FromDays(cantidad_dias_dia)

    End Sub