[AJUDA] No Delphi

[Cloverfield 0]

Eu queria saber como eu faço form com dois botões: um para, quando clicar nele voltar 1 dia no relógio do windows, e outro para avançar 1 dia.

Por favor, me ajudem.

[~OwneR~ 8]

Acabei de fazer esse código =) ele avança um dia ok

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Esse código armazena a data atual no SD1 e após editar o dia coloca a nova data no SD2, se não houver mudança ele muda o dia para 1 e avança um mês, faz a mesma coisa quando chega no dia 31/12 e avança um ano. Apanhei no de voltar porque eu não consegui pegar o valor máximo de dias de cada mês, se você conseguir basta mudar as partes +1 para -1, o Month de 1 para 12 e por aí vai :cool:

[Cloverfield 0]

Você testou aí? Porque eu testei aqui e.. não deu

[Ryokusei 21]

No botão de avançar 1 dia use:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No botão de voltar 1 dia use:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Surfistinha£ 20]

Avançar 1 dia

 

Procedure TForm1.Button1Click(Sender: TObject);

var

Date : TDateTime;

ST : TSystemTime;

SD1, SD2 : String;

begin

Date := Now;

SD1:=DateToStr(Date);

GetSystemTime(ST);

ST.wDay:=ST.wDay+1;

SetSystemTime(ST);

Date := Now;

SD2:=DateToStr(Date);

if SD1=SD2 then

begin

GetSystemTime(ST);

ST.wDay:=1;

ST.wMonth:=ST.wMonth+1;

SetSystemTime(ST);

Date := Now;

SD2:=DateToStr(Date);

if SD1=SD2 then

begin

GetSystemTime(ST);

ST.wDay:=1;

ST.wMonth:=1;

ST.wYear:=ST.wYear+1;

SetSystemTime(ST);

end;

end;

end;

 

Voltar 1 dia

 

Procedure TForm1.Button1Click(Sender: TObject);

var

Date : TDateTime;

ST : TSystemTime;

SD1, SD2 : String;

begin

Date := Now;

SD1:=DateToStr(Date);

GetSystemTime(ST);

ST.wDay:=ST.wDay-1;

SetSystemTime(ST);

Date := Now;

SD2:=DateToStr(Date);

if SD1=SD2 then

begin

GetSystemTime(ST);

ST.wDay:=1;

ST.wMonth:=ST.wMonth-1;

SetSystemTime(ST);

Date := Now;

SD2:=DateToStr(Date);

if SD1=SD2 then

begin

GetSystemTime(ST);

ST.wDay:=1;

ST.wMonth:=1;

ST.wYear:=ST.wYear-1;

SetSystemTime(ST);

end;

end;

end;

[~OwneR~ 8]

@Cloverfield

Eu testei .____."

Dá uma olhada:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Foi feito do jeito que eu postei =)

 

Voltar 1 dia

Procedure TForm1.Button1Click(Sender: TObject);

var

Date : TDateTime;

ST : TSystemTime;

SD1, SD2 : String;

begin

Date := Now;

SD1:=DateToStr(Date);

GetSystemTime(ST);

ST.wDay:=ST.wDay-1;

SetSystemTime(ST);

Date := Now;

SD2:=DateToStr(Date);

if SD1=SD2 then

begin

GetSystemTime(ST);

ST.wDay:=1;

ST.wMonth:=ST.wMonth-1;

SetSystemTime(ST);

Date := Now;

SD2:=DateToStr(Date);

if SD1=SD2 then

begin

GetSystemTime(ST);

ST.wDay:=1;

ST.wMonth:=12; //Aqui é 12 não 1

ST.wYear:=ST.wYear-1;

SetSystemTime(ST);

end;

end;

end;

 

O problema que eu disse tá ai em vermelho, porque assim ele coloca o dia como 1 sendo que deveria ser o último do mês, e se você coloca 31 e o mês só tiver 30 dias não dá certo =|

[Cloverfield 0]

Ryokusei, obrigado, o seu funcionou perfeitamente!

 

Os outros, obrigado por tentar me ajudar!

 

Pode fechar.

[Ryokusei 21]

Disponha (: