DamefrmDlg_FechaHora

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:26 P. M. por David Miralpeix


Libreria

Clase

Metodo

AhoraAsistentes

Asistentes

DamefrmDlg_FechaHora


Implementación:


 Public Function DamefrmDlg_FechaHora() As Object
   Set DamefrmDlg_FechaHora = New frmDlg_FechaHora
 End Function 


Descripción:


Abre un formulario que permite introducir fecha y hora, se recupera mediante la función Carga:


 Public Function Carga(
       aFecha As Variant, Ahora As String,
       Optional aPropietario As Object) As Boolean
  Public Function Fecha() As Date
   Fecha = pFecha
 End Function
 Public Function Hora() As String
   Hora = pHora
 End Function
 Public Property Get NombreForm() As String
   NombreForm = pNombreForm
 End Property
 Public Property Let NombreForm(aNombreForm As String)
   pNombreForm = aNombreForm
 End Property 


Ejemplo de uso:


 Set lFrm = gCn.AhoraProceso("DamefrmDlg_FechaHora",False)
 If lFrm.Carga("","") Then
   lFechaInicio = lFrm.Fecha
   lHoraInicio = lFrm.hora
 End If 


¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo