|
|
Postada em 24/05/2008 22:28 hs
TENHO ESSA FUNÇÃO ABAIIXO PARA CALCULAR A DATA E HORÁRIO DO PROXINO ATENDIMENTO, ESTAVA TUDO CERTO SE FOSSE TRABALAR APENAS DIURNO, AI MUDARRAM PARA 24 HORA E NÃO CONSIGO FAZER MAIS O HORÁRIO E DATA CORRATA ALGUEM PODE ME AJUDAR ? SENDO A DATA DE HOJE : 24/05/2008 E NUMERO DE HORAS PARA ATENDIMENTO É 8 HORAS, COMO FAÇO? Private Function RetNumHoras()
Dim l, t As Long, horas As Long, min As Long
t = (Mid(Time, 1, 2) * 3600) + Mid(Time, 4, 2) * 60
l = (MyTempoAtend * 3600) + t
horas = Int(l / 3600)
l = l - (3600 * horas)
min = Int(l / 60)
l = l - (min * 60)
RetNumHoras = Format(horas & ":" & min, "hh:mm")
End Function OBRIGADO |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 25/05/2008 15:09 hs
veja esta função
Public Function ProxAtendimento(ByVal Tempo As Double)
Dim data As String
Dim hora As String
Dim d As Long
Dim t As Long
d = 0
t = Tempo / 24
If t >= 1 Then t = Int(t)
hora = DateAdd("h", Tempo, Time)
If hora > #11:59:00 PM# Then
d = d + t
End If
data = DateAdd("d", d, Date)
MsgBox "Proximo atendimento dia " & FormatDateTime(data, vbShortDate) & " as " & FormatDateTime(hora, vbShortTime)
End Function
Private Sub Command1_Click()
ProxAtendimento 8 ' o 8 define o tempo de intervalo End Sub veja se este código te ajuda |
|
|
|
|
|
Postada em 25/05/2008 16:50 hs
VALEU OBRIGADO FICOU 10000. |
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 27/05/2008 11:17 hs
com esta funcao fica ainda mais simples Dim data As String
Dim hora As String hora = DateAdd("h", Tempo, Now)
MsgBox "Proximo atendimento dia " & FormatDateTime(hora, vbShortDate) & " as " & FormatDateTime(hora, vbShortTime)
Problema solucionado = click no cadeado para post encerrado!!!!!!!!!
|
|
|
|
|
