Início
Assis 29/7/2011, 15:16Boa tarde
http://dl.dropbox.com/u/8169944/Calend%C3%A1rio%20Assis.mdb
http://dl.dropbox.com/u/8169944/Calend%C3%A1rio%20Assis.mdb
[Resolvido]Calendário para selecção de data
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
Convidad- Convidado
Private Function fctnDate_Click(ctl As Control)
' Called by clicking any date on the calendar grid
Dim datOut As Date ' Date variable to be retained after frmCalendar is closed
If ctl.ForeColor = 0 Then ' In the currently displayed month, i.e. date not greyed out
datOut = CDate(ctl.Caption & " " & labDat.Caption) ' Set datOut
Else
If CInt(Mid$(ctl.Name, 4)) < 8 Then ' Tail-end of the previous month
datOut = CDate(ctl.Caption & " " & Format(CDate(Format(labDat.Caption, "dd-mmm-yyyy")) - 1, "mmmm yyyy")) ' Set datOut
Else ' Start of the next month
datOut = CDate(ctl.Caption & " " & Format(CDate(Format(labDat.Caption, "dd-mmm-yyyy")) + 31, "mmmm yyyy")) ' Set datOut
End If
End If
If datOut > Date Then
MsgBox "Data não pode ser superior a Hoje...", vbCritical
Exit Function
Else
DoCmd.Close acForm, "frmCalendar", acSaveNo ' Close frmCalendar first, as it's modal
ctlIn = datOut
End If
End Function
' Called by clicking any date on the calendar grid
Dim datOut As Date ' Date variable to be retained after frmCalendar is closed
If ctl.ForeColor = 0 Then ' In the currently displayed month, i.e. date not greyed out
datOut = CDate(ctl.Caption & " " & labDat.Caption) ' Set datOut
Else
If CInt(Mid$(ctl.Name, 4)) < 8 Then ' Tail-end of the previous month
datOut = CDate(ctl.Caption & " " & Format(CDate(Format(labDat.Caption, "dd-mmm-yyyy")) - 1, "mmmm yyyy")) ' Set datOut
Else ' Start of the next month
datOut = CDate(ctl.Caption & " " & Format(CDate(Format(labDat.Caption, "dd-mmm-yyyy")) + 31, "mmmm yyyy")) ' Set datOut
End If
End If
If datOut > Date Then
MsgBox "Data não pode ser superior a Hoje...", vbCritical
Exit Function
Else
DoCmd.Close acForm, "frmCalendar", acSaveNo ' Close frmCalendar first, as it's modal
ctlIn = datOut
End If
End Function
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Ricardo
Obrigado
Obrigado
.................................................................................
*** Só sei que nada sei ***
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Filtro de data em calendário POP-up
» [Resolvido]Calendário com data e hora
» [Resolvido]Mudar o foco do controle calendário para outro campo
» [Resolvido]Calendário access não exibe a figura data
» [Resolvido]Formulário Padrão para inserir Data Inicial e Data Final para Todos os Relatórios por Período ao clicar no botão Imprimir
» [Resolvido]Calendário com data e hora
» [Resolvido]Mudar o foco do controle calendário para outro campo
» [Resolvido]Calendário access não exibe a figura data
» [Resolvido]Formulário Padrão para inserir Data Inicial e Data Final para Todos os Relatórios por Período ao clicar no botão Imprimir