Edson se você utiliza do maskeditbox não precisa da função acima pois o maskeditbox faz praticamente a mesma coisa, utiliza o que você achar que fica melhor para seu programa, apenas aproveite as dicas pra somar seus campos de datas, tanto a minha como a dica do RARS é valida, no caso ele utilizou a funçao DateAdd.
O que vou fazer é explicar como você trabalhar com datas.
começando pelo DateAdd
DateAdd retorna uma data acrescida do intervalo de tempo fornecido.
Sintaxe: DateAdd(intervalo,Número,Data)
Você pode acrescer datas e diveras formas veja:
Intervalos
Ajuste Descrição
yyyy Year(ano)
q Quarter(Trimestre)
m Month(Mês)
y Day of year(Dia do ano)
d Day(Dia)
w Weekday(Dia da Semana)
ww Week(semana)
h Hour(Hora)
n Minute(minuto)
s Second(Segundos)
Então como foi explicado pelo colega RARS você pode fazer os seguintes
Calculos:
Exemplos;
' Acrescenta 03 anos a data atual
Teste=DateAdd("yyyy",3,Data Atual)
' Diminui 03 Meses da data Atual
Teste=DateAdd("m",-6,Data Atual)
' Soma uma Semana a data Atual
Teste=DateAdd("ww",1,Data Atual)
DateDiff
Retorna o intervalo decorrido entre duas datas, com a unidae de tempo especificada.
Sintaxe: DateDiff(Intervalo, Data1, Data2)
o intervalo é o mesmo descrito anteriormente
Exemplos:
' Dias decorridos entre 01/01/07 à 04/10/07
Teste=DateDiff("d","01/01/07","04/10/07") ' Teste=274 dias
' Horas decorridas entre 01/10/07 à 04/10/07
Teste=DateDiff("h","01/10/07","04/10/07") ' Teste=72 horas
Se a Data2 for Menor que a Data1, o numero de intervalos decorridos será negativo.
e agora mais uma o DateValue que foi utilizado por mim.
DateValue
DateValue Converte uma String em uma Data.
então o exemplo utilizao por faz o seguinte
' Converte o text1.text para uma data e acrescenta mais trinta dias a esta data.
Text1.Text=DateValue(Text1.text) + 30
Estas são apenas algumas dicas de como se trabalhar com Datas, eu sempre digo a todos que ao se salvar uma data é melhor que seja como string, pois se salvar como Data pode haver varios incovenientes devido o fomato de data do seu computador, dos exemplos acima o melhor para cálculo de datas é o DateAdd com certeza.
Bom espero que você tire Proveito desta dica
Até
