Agregar archivos de proyecto.

dxwFecha.xaml.vb

@@ -0,0 +1,41 @@
+Imports DevExpress.Xpf.Core
+
+Public Class dxwFecha
+    Public NombreFichero As String
+    Public Fecha As Date?
+    Private _fechaObligatoria As Boolean
+    Public Sub New(Optional Fecha As Date? = Nothing, Optional Titulo As String = "Introduzca intervalo de Fechas", Optional FechaObligatoria As Boolean = False)
+        ' Llamada necesaria para el diseñador.
+        InitializeComponent()
+        Me.Title = Titulo
+        Me.deFecha.EditValue = Fecha
+        _fechaObligatoria = FechaObligatoria
+
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+
+    Public Sub New()
+        ' Llamada necesaria para el diseñador.
+        InitializeComponent()
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+    Private Sub btCancelar_Click(sender As Object, e As RoutedEventArgs)
+        Me.DialogResult = False
+        Me.Close()
+    End Sub
+
+    Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs)
+        Try
+            If Me.deFecha.EditValue Is Nothing AndAlso _fechaObligatoria Then Throw New Exception("La fecha es obligatoria")
+            Me.Fecha = Me.deFecha.EditValue
+            Me.DialogResult = True
+            Me.Close()
+        Catch ex As Exception
+            DXMessageBox.Show(ex.Message, "Error")
+        End Try
+    End Sub
+
+
+End Class