Hola Necesito saber si me pueden ayudar con este tema.

Tengo el siguiente problema.

Debo permitir la realización de una impresión por día. El tema se complica por lo siguiente:

El día de trabajo está comprendido por el siguiente rango horario. (8:00 a 03:30). Comienza a las 8:00hs AM y termina al otro día 03:30hs AM (Total 19hs y 30minutos).

La impresión sale correcta siempre y cuando no se realice una impresión luego de las 00hs.

Es decir, si el usuario realizo una impresión a la 01:00AM, luego, al siguiente día de trabajo cuando quiere realizar una nueva impresión por ej. a las 8:30 (horario en que comienza un nuevo día de trabajo) el sistema no permite ya que informa que fue realizada una impresión. NO debería ser así ya que son días diferentes.

Uso la fecha de la computadora. ¿Es esto correcto...? o debo utilizar otra forma para manejar fechas...el tema es que no se cual es la otra forma.

Desde ya gracias por cualquier ayuda que me puedas brindar

Hola, creo que debería trabajar 1 por Día y otro por horas, no olvides que las 00 horas un minuto, ya es otro día, así cualquier impresión dentro del rango se ara normalmente, ok.
saludos

No entiendo tu respuesta PercyP

trabajar 1 por Día y otro por horas. En la base guardo un registro con la info junto con fecha y hs.

No entiendo a que te referís uno por día y otro por hora.

Gracias por tu respuesta.

y porque el sisema permite que s miprima algo a la 1:00AM, restringe las impresiones que solo se hagan en horario de trabajo

Pulgarin

No entendiste bien. Puse la 1HS AM como ejemplo pero puede ser en cualquier hora del rango horario que mencione. Debo restringir a una sola impresión por día.

Probaste descontando de la hora del sistema 3:30 Hs. De esta manera el intervalo queda de 4:30 a 24:00 del mismo día.
No estoy seguro pero creo que la funcion DateAdd te permite sumar/restar periodos de tiempos y te devuelve la fecha que resulta de sumarle el periodo. Supongo que para restar en vez de sumar será cuestion de ponerle el signo menos al periodo.
saludos

Iniciado por telu

Probaste descontando de la hora del sistema 3:30 Hs. De esta manera el intervalo queda de 4:30 a 24:00 del mismo día.
No estoy seguro pero creo que la funcion DateAdd te permite sumar/restar periodos de tiempos y te devuelve la fecha que resulta de sumarle el periodo. Supongo que para restar en vez de sumar será cuestion de ponerle el signo menos al periodo.
saludos

Telu. No entiendo bien lo que mencionas.
La impresión puede realizarse desde la 08:00hs a 03:30hs, es decir, que para ese día que comenzó la fecha de trabajo a las 08:00hs debe terminar a las 03:30hs (del día siguiente) y vuelve a empezar la fecha de trabajo del nuevo día a las 08:00hs hasta las 03:30hs.

Ej. Fecha de trabajo 25/02/2013 comienza a las 08:00hs y termina a las 03:30hs del 26/02/2013. Comienza la fecha de trabajo del 26/02/2013 a las 08:00hs, la cual va a terminar el 27/02/2013 a las 03:30hs y así sucesivamente. Además, para cada fecha de trabajo solo se debe realizar una impresión. ¿Se entiende un poco más ahora...?

La idea es manejar internamente otro horario: de 4:30 Hs a 24 Hs del mismo día.
Este horario será invisible para el usuario, solo lo utiliza tu aplicación para hacer las verificaciones que correspondan.
¿Que conseguimos con eso? Que todo el horario de trabajo pertenezca a una misma fecha.
Podés hacer una función que te devuelva esa nueva fecha/hora a partir de la fecha del sistema
Ej:

Private Function MiHora() As Date
MiHora = DateTime.DateAdd("n", -210, DateTime.Now)
End Function

De esta manera, cuando necesites verificar la hora haces algo así:

Public Sub Impresion()
Dim FMin As Date, FMax As Date
Dim dia As String, mes As String, año As String

dia = DateTime.Day(DateTime.Now)
mes = DateTime.Month(DateTime.Now)
año = DateTime.Year(DateTime.Now)

FMin = mes & "/" & dia & "/" & año & " 04:30:00 AM"
FMax = mes & "/" & dia & "/" & año & " 12:00:00 PM"
If FMin <= MiHora() <= FMax Then
Imprimir
Else
InformarError
End If

End Sub

Como podes ver FMin y FMax son los horarios extremos de impresión, simepre pertenecen al mismo dia (fecha actual) y estás 3:30 hs atrasada respecto de la hora del sistema. Estos limetes podrias ponerlos como constantes a nivel de formulario o de modulos para acceder facilmente desde cualquier parte del programa y asegurarte que estas usando siempre los mismos valores.
No conozco los detalles de lo que estas haciendo, así no se que otra ayuda te puedo dar.
saludos

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

Iniciado por telu

La idea es manejar internamente otro horario: de 4:30 Hs a 24 Hs del mismo día.
Este horario será invisible para el usuario, solo lo utiliza tu aplicación para hacer las verificaciones que correspondan.
¿Que conseguimos con eso? Que todo el horario de trabajo pertenezca a una misma fecha.
Podés hacer una función que te devuelva esa nueva fecha/hora a partir de la fecha del sistema
Ej:

Private Function MiHora() As Date
MiHora = DateTime.DateAdd("n", -210, DateTime.Now)
End Function

De esta manera, cuando necesites verificar la hora haces algo así:

Public Sub Impresion()
Dim FMin As Date, FMax As Date
Dim dia As String, mes As String, año As String

dia = DateTime.Day(DateTime.Now)
mes = DateTime.Month(DateTime.Now)
año = DateTime.Year(DateTime.Now)

FMin = mes & "/" & dia & "/" & año & " 04:30:00 AM"
FMax = mes & "/" & dia & "/" & año & " 12:00:00 PM"
If FMin <= MiHora() <= FMax Then
Imprimir
Else
InformarError
End If

End Sub

Como podes ver FMin y FMax son los horarios extremos de impresión, simepre pertenecen al mismo dia (fecha actual) y estás 3:30 hs atrasada respecto de la hora del sistema. Estos limetes podrias ponerlos como constantes a nivel de formulario o de modulos para acceder facilmente desde cualquier parte del programa y asegurarte que estas usando siempre los mismos valores.
No conozco los detalles de lo que estas haciendo, así no se que otra ayuda te puedo dar.
saludos

Hola Telu.
Muchas gracias por tu código. Voy a probarlo tranquilo y ver que sucede.
Te cuento cuando finalice la prueba.
Gracias.

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

Hola MarioColomino.

Cuanto código. Gracias. Te cuento que algo parecido ya utilice y no me funciono. Ahora estoy probando el código que me paso Telu pero luego de finalizar intentare con tu ayuda. Después te comento.

Gracias.