-- mejora en fecha

AF/RepDepreciacion.aspx.vb

@@ -4,6 +4,9 @@ Option Strict On
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
 Imports Extensiones
+Imports DocumentFormat.OpenXml.Wordprocessing
+Imports System
+
 Partial Class AF_RepDepreciacion
     Inherits ClsPaginas
 
@@ -13,7 +16,7 @@ Partial Class AF_RepDepreciacion
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            txtFechaI.Text = New Date(Now.Year, Now.Month + 1, 1).AddDays(-1).ToString("dd/MM/yyyy")
+            txtFechaI.Text = DateTime.Now.AddMonths(1).AddDays(-1).ToString("dd/MM/yyyy")
         End If
     End Sub