SOMA DE DATAS NO CRYSTAL OU VB
Boa tarde pessoal!
eu preciso fazer um relatorio q conste o campo do inicio da semana sendo esta um campo do BD e um campo formula q mostre a o campo data 7 dias depois... o intervalo de é datas semanal... o primeiro dia q e o campo datanascimento e a data de 7 dias depois...
PERIODO: <data_do_BD> ate <formula_que_mostre_a_data_do_BD_7_dias_depois>
obrigado pessoal,
eu preciso fazer um relatorio q conste o campo do inicio da semana sendo esta um campo do BD e um campo formula q mostre a o campo data 7 dias depois... o intervalo de é datas semanal... o primeiro dia q e o campo datanascimento e a data de 7 dias depois...
PERIODO: <data_do_BD> ate <formula_que_mostre_a_data_do_BD_7_dias_depois>
obrigado pessoal,
<data do bd> + 7
as vezes parece besta, mas comigo ocorreu assim... tente para ver se dar certo
exemplo:
Dim DATA as Date
DATA = Format(Date, "DD/MM/YYYY")
txtValidade = DATA + 10
as vezes parece besta, mas comigo ocorreu assim... tente para ver se dar certo
exemplo:
Dim DATA as Date
DATA = Format(Date, "DD/MM/YYYY")
txtValidade = DATA + 10
use a função dateadd do próprio vb onde você indica o quer somar dias meses ou até anos...
IF RESPOSTA="SATISFATÓ“RIA" THEN
ENCERRA_TÓ“PICO
PONTUA_ME
END IF
IF RESPOSTA="SATISFATÓ“RIA" THEN
ENCERRA_TÓ“PICO
PONTUA_ME
END IF
Olha aÃ, colega.. vê se isto resolve:
Private Sub Text1_LostFocus() ' aqui vc é quem escolhe o controle e o evento, ok ???
Dim DataBanco As Date
DataBanco = Format(Text1.Text, "dd/mm/yy") ' A data de seu banco, no controle que vc tá usando...
Text2.Text = DataBanco + 7 ' Text2 seria o lugar onde apareceria a data de seu banco, mais 7...
End Sub
Espero que isto sirva...
Abraço
Private Sub Text1_LostFocus() ' aqui vc é quem escolhe o controle e o evento, ok ???
Dim DataBanco As Date
DataBanco = Format(Text1.Text, "dd/mm/yy") ' A data de seu banco, no controle que vc tá usando...
Text2.Text = DataBanco + 7 ' Text2 seria o lugar onde apareceria a data de seu banco, mais 7...
End Sub
Espero que isto sirva...
Abraço
tente este exemplo:
msgbox DateAdd("d", 7, cdate(format(text1.text,"dd/mm/yyyy")))
ele mostrará na tela o conteúdo do text1 acrescido de 7 dias
msgbox DateAdd("d", 7, cdate(format(text1.text,"dd/mm/yyyy")))
ele mostrará na tela o conteúdo do text1 acrescido de 7 dias
Tópico encerrado , respostas não são mais permitidas