HORA

GOLVEIAR 07/11/2011 14:32:11
#388626
Ola Galera! blz? Estou fazendo uma agenda e preciso fazer uma rotina assim se a hora for menor que a hora do sistema não permite marcar ate ai tudo bem mas por exemplo se a data for diferente continua não permitindo. Eu quero que se a data for maior que a data do sistema ai permitir se alguem puder me ajudar eu agradeço.
LUIZCOMINO 07/11/2011 15:51:42
#388637
If Isdate(Data)< IsDate(DataSitema) Then
msgbox [Ô]Não permetido[Ô]
exit sub
End if
MARCELO.TREZE 07/11/2011 17:36:35
#388645 Resposta escolhida
colega GOLVEIAR na ralidade o ideal seria vc postar seu código mas veja uma consulta que funciona

If CDate([Ô]07/11/2011 13:30:00[Ô]) < CDate([Ô]06/11/2011 17:17:23[Ô]) then
[ô] a hora é invalida
End if


acima a função retornará uma hora [txt-color=#007100]válida[/txt-color]

e abaixo a função retornará uma hora [txt-color=#e80000]inválida[/txt-color]

If CDate([Ô]06/11/2011 13:30:00[Ô]) < CDate([Ô]06/11/2011 17:17:23[Ô]) then
[ô] a hora é invalida
End if


resumindo inclua a data em suas consultas
GOLVEIAR 07/11/2011 19:22:25
#388655
Obrigado a todos que postaram ! mas é o seguinte:

cboData.Text = Format(Date, [Ô]DD/MM/YYYY[Ô])
cboProfissional.Text = [Ô]João da Silva[Ô]

For intIntervalo = 0 To 660 Step 15
strResultado = DateAdd([Ô]n[Ô], intIntervalo, strHoraInicial)

With TbAgenda
.AddNew
!Data = Trim$(cboData.Text)
!Hora = Trim$(Format(strResultado, [Ô]HH:MM[Ô]))
!Profissional = Trim$(cboProfissional.Text)
!Paciente = [Ô][Ô]
!Inad = [Ô][Ô]
!Telefone = [Ô][Ô]
!Celular = [Ô][Ô]
!Categoria = [Ô][Ô]
!Plano = [Ô][Ô]
!Classificacao = [Ô][Ô]
!status = [Ô][Ô]
!Horachegou = [Ô][Ô]
!Espera = [Ô][Ô]
!HoradoAtendimento = [Ô][Ô]
!Procedimento = [Ô][Ô]
!Marcado = [Ô]Nao[Ô]
!Atendido = [Ô][Ô]
.Update
End With

Next intIntervalo
Este codigo monta uma agenda com os horarios das 08:00 as 19:00 horas eu quero que quando o usuario montar a agenda as 10:00 se ele quiser agendar um horario as 08:00 por exemplo não consiga so a partir das 10:00 que ele pode agendar e se a data for menor que a data atual não permitir agendar. Se alguem puder me ajudar eu agradeço
MARCELO.TREZE 07/11/2011 20:24:29
#388659
mas colega a resposta está nos ifs postado veja aplicando em seu código

cboData.Text = Format(Date, [Ô]DD/MM/YYYY[Ô])
cboProfissional.Text = [Ô]João da Silva[Ô]

[txt-color=#0000f0]If Cdate(cboData.Text) < Date Or CDate(strHoraInicial) < Time Then
Msgbox [Ô]Favor inserir uma data e hora válida![Ô], vbCritical + vbOkOnly,[Ô]Data ou Hora inválida![Ô]
Exit Sub
End If[/txt-color]

For intIntervalo = 0 To 660 Step 15
strResultado = DateAdd([Ô]n[Ô], intIntervalo, strHoraInicial)

With TbAgenda

.AddNew
!Data = Trim$(cboData.Text)
!Hora = Trim$(Format(strResultado, [Ô]HH:MM[Ô]))
!Profissional = Trim$(cboProfissional.Text)
!Paciente = [Ô][Ô]
!Inad = [Ô][Ô]
!Telefone = [Ô][Ô]
!Celular = [Ô][Ô]
!Categoria = [Ô][Ô]
!Plano = [Ô][Ô]
!Classificacao = [Ô][Ô]
!status = [Ô][Ô]
!Horachegou = [Ô][Ô]
!Espera = [Ô][Ô]
!HoradoAtendimento = [Ô][Ô]
!Procedimento = [Ô][Ô]
!Marcado = [Ô]Nao[Ô]
!Atendido = [Ô][Ô]
.Update
End With

Next intIntervalo

teste pra ver se é isso
GOLVEIAR 07/11/2011 20:43:42
#388660
MARCELO Valeu cara Muito obrigado a você e LUIZCOMINO! Deus Abençoe vcs!
Tópico encerrado , respostas não são mais permitidas
Voltar