Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/PV.aspx.vb

@@ -5073,7 +5073,17 @@ Partial Class PV
     End Sub
 
     Private Sub CalculaMesesUso()
-        TxtMesesUso.Text = DateDiff(DateInterval.Month, TxtFechaAjuste.Text.ToDate, Now).ToEntero.ToString
+        Dim FechaI = TxtFechaAjuste.Text.ToDate
+        Dim FechaF = Now
+        'Dim NumDiasAlMes As Double = (365 / 12)
+
+        'Dim DiasTranscurridos = DateDiff(DateInterval.Day, FechaI, FechaF)
+
+        'Dim MesesTranscurridos As Double = DiasTranscurridos / NumDiasAlMes
+
+        'Dim NoMesesTrascurridos = Math.Ceiling(MesesTranscurridos)
+
+        TxtMesesUso.Text = (DateDiff(DateInterval.Month, FechaI, FechaF) + 1).ToString()
         CalculaPorcentajeAjuste()
     End Sub