
Iniciado por
MarioColomino
Hola. Seguis sin poder solucionarlo?? yo aca estuve probando y llegue a una solución: convertir las horas en enteros Por ej: las 10:15 am seria 1015... Te paso el codigo que hice: son 2 textbox y un command:
Option Explicit
Private Sub cmdPrint_Click()
Dim FecUlt As Date
Dim FecPro As Date
FecUlt = txtUltImp.Text
FecPro = txtProImp.Text
Dim VPerm As Boolean
VPerm = False
'Limites Horas de dia de trabajo
Dim fUltIni As Integer
fUltIni = 830
Dim fProIni As Integer
fProIni = 830
Dim fUltFin As Integer
fUltFin = 330
Dim fProFin As Integer
fProFin = 330
If Format(FecUlt, "dd/mm/yy") = Format(FecPro, "dd/mm/yy") And _
CInt(Replace(Format(FecUlt, "H:mm"), ":", "")) <= fUltFin And _
CInt(Replace(Format(FecPro, "H:mm"), ":", "")) <= fProFin Then
VPerm = False
ElseIf Format(FecUlt, "dd/mm/yy") = Format(FecPro, "dd/mm/yy") And _
CInt(Replace(Format(FecUlt, "H:mm"), ":", "")) <= fUltFin And _
CInt(Replace(Format(FecPro, "H:mm"), ":", "")) >= fProIni Then
VPerm = True
ElseIf Format(FecUlt, "dd/mm/yy") = Format(FecPro, "dd/mm/yy") And _
CInt(Replace(Format(FecUlt, "H:mm"), ":", "")) >= fUltIni And _
CInt(Replace(Format(FecPro, "H:mm"), ":", "")) >= fProIni Then
VPerm = False
'***
ElseIf Format(FecUlt, "dd/mm/yy") = Format(DateAdd("d", -1, FecPro), "dd/mm/yy") And _
CInt(Replace(Format(FecUlt, "H:mm"), ":", "")) <= fUltFin And _
CInt(Replace(Format(FecPro, "H:mm"), ":", "")) >= fProIni Then
VPerm = True
ElseIf Format(FecUlt, "dd/mm/yy") = Format(DateAdd("d", -1, FecPro), "dd/mm/yy") And _
CInt(Replace(Format(FecUlt, "H:mm"), ":", "")) <= fUltFin And _
CInt(Replace(Format(FecPro, "H:mm"), ":", "")) <= fProFin Then
VPerm = True
ElseIf Format(FecUlt, "dd/mm/yy") = Format(DateAdd("d", -1, FecPro), "dd/mm/yy") And _
CInt(Replace(Format(FecUlt, "H:mm"), ":", "")) >= fUltIni And _
CInt(Replace(Format(FecPro, "H:mm"), ":", "")) <= fProFin Then
VPerm = False
Else
VPerm = True
End If
If VPerm = False Then
MsgBox "Impresión Cancelada. Ya se realizó la impresión permitida para el día de trabajo"
Else
MsgBox "Impresión Permitida!!!!"
End If
End Sub
Private Sub Form_Load()
txtUltImp.Text = Format(Now, "d/m/yy h:mm")
txtProImp.Text = Format(Now, "d/m/yy h:mm")
End Sub
Ojalá sirva de ayuda. Un abrazo