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