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
Sus comentarios se han enviado
Agradecemos su esfuerzo e intentaremos corregir el artículo