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