Convidado 2/6/2011, 22:51
Para quem acompanha..
O mestre vieira havia me dado uma dica.. de onde parti a pesquisa..
Em realidade o AddDate, lhe permite inserir uma data, e apois inserir datas ou meses futuros para lhe retornar uma diferença..
Eis o exemplo:
Dim FirstDate As Date ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m" ' "m" specifies months as interval.
FirstDate = InputBox("Enter a date") 'Entrar com a data
Number = InputBox("Enter number of months to add") 'entrar com o número de meses para adicionar a data
Msg = "New date: " & _
DateAdd(IntervalType, Number, FirstDate) 'Resultado
MsgBox Msg
Enquanto que o DiffDate: Public Function DifData()
Dim TheDate As Date ' Declare variables. (declaração de variáveis)
Dim Msg
TheDate = Me.Data_da_Prisão 'Campo no form
Msg = MsgBox("Dias de Prisão: " & DateDiff("d", TheDate, Now), vbInformation, "Syspen") 'Resultado da diferenca
End Function
Aqui criei uma função para depois poder chamá-la através de um botãoUtilizando o código Call DifData
Saudações
Início
![[Resolvido]Contagem de dias Apartir de uma data Empty](https://2img.net/i/empty.gif)
![[Resolvido]Contagem de dias Apartir de uma data Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)