MANIPULANDO DATAS
Prezados colegas.
Estou desenvolvendo uma pequena aplicação, porém,
preciso que o programa ao abrir reconheça a data,
mas só o dia e o mês, para poder rodar também nos anos seguintes.
Por exemplo
if date = 15/03 then
executa uma função.
Não sei como implementar isso.
Será que alguém sabe como resolvo essa questão?
Antecipadamente agradeço pela gentileza e atenção
Frata
Estou desenvolvendo uma pequena aplicação, porém,
preciso que o programa ao abrir reconheça a data,
mas só o dia e o mês, para poder rodar também nos anos seguintes.
Por exemplo
if date = 15/03 then
executa uma função.
Não sei como implementar isso.
Será que alguém sabe como resolvo essa questão?
Antecipadamente agradeço pela gentileza e atenção
Frata
A partir do momento que você tem uma variável do tipo Date, pode usar as funções Day e Month para pegar o dia e mês.
Dim dia as integer
dim mes as integer
dia = Day(suaData)
mes = Month(suaData)
if dia = 6 and mes = 10 then
...
end if
Dim dia as integer
dim mes as integer
dia = Day(suaData)
mes = Month(suaData)
if dia = 6 and mes = 10 then
...
end if
Simples e objetivo
dim pegou as string
pegou= Format(Date, [Ô]dd/mm[Ô])
if pegou=[Ô]02/02[Ô] then
msgbox [Ô]Funcionou ligeiro[Ô]
else
msgbox [Ô]este codigo e muito ruim[Ô]
end if
se funcionar para você finalize o topico
dim pegou as string
pegou= Format(Date, [Ô]dd/mm[Ô])
if pegou=[Ô]02/02[Ô] then
msgbox [Ô]Funcionou ligeiro[Ô]
else
msgbox [Ô]este codigo e muito ruim[Ô]
end if
se funcionar para você finalize o topico
Agradeço aos colegas DS2T e FABRICIOWEB, funcionou o código do
FABRICIOWEB. Não sei se implementei certo o código do DS2T.
Agradeço imensamente pela gentileza.
Valeu mesmo. Obrigado!
Tópico encerrado , respostas não são mais permitidas