Converter uma variavel String ou Date para SystemDate

Delphi

31/01/2005

Bom dia Pessoal,
Alguem poderia me ajudar em como passar a data de uma variavel para a data do sistema? Estou tendo dificuldades.

Obrigado,

Gustavo Leandro


Unk

Unk

Curtidas 0

Respostas

Arc

Arc

31/01/2005

Não entendi


GOSTEI 0
Unk

Unk

31/01/2005

é o seguinte:

Tenho uma variavel q pega uma data assim 31/05/2004 por exemplo... Queria saber uma forma de passa-la para a data do meu computador...


GOSTEI 0
Arc

Arc

31/01/2005

vc quer mudar a data do sistema ?


GOSTEI 0
Unk

Unk

31/01/2005

Exatamente... Mas eu preciso mudar para a Data da Variavel, pois a cada execução do software a data deverá ser alterada.

var
SystemTime : TSystemTime;
begin
SystemTime.wYear := 2008;
SystemTime.wMonth := 1;
SystemTime.wDay := 25;
SetLocalTime(SystemTime);
end;

Assim dá certo, mas eu preciso mudar para a data da variavel, aí é que está a dificuldade.


GOSTEI 0
Gandalf.nho

Gandalf.nho

31/01/2005

Use a função DateTimeToSystemTime do próprio Delphi


GOSTEI 0
Unk

Unk

31/01/2005

Fiz o seguinte:

var
SystemTimeOld : TSystemTime;
Begin
SystemTimeOld := DateTimeToSystemTime(Date);
End;

Está dando erro, falta de parametros.

Alguem pode me ajudar?


GOSTEI 0
Gandalf.nho

Gandalf.nho

31/01/2005

O correto é assim:

var 
SystemTimeOld : TSystemTime; 
Begin 
DateTimeToSystemTime(Date, SystemTimeOld); 
End; 



GOSTEI 0
Unk

Unk

31/01/2005

Muito Obrigado =P

Desculpe pela amolação


GOSTEI 0
Gandalf.nho

Gandalf.nho

31/01/2005

Muito Obrigado =P Desculpe pela amolação


Sem problemas, estamos aqui para ajudar.


GOSTEI 0
Unk

Unk

31/01/2005

A data está OK, mas quando faço a mudança o horário muda para 00:00.
O mesmo comando também funciona para hora?


GOSTEI 0
Massuda

Massuda

31/01/2005

No exemplo da gandalf.nho, ela usou a função Date para pegar a data atual, porisso que o sistema está assumindo como hora o valor 0:00.

Mas podia ter usado a função Now que retorna a data E hora atual ou até mesmo usado a função Time que retorna apenas a hora atual.


GOSTEI 0
Unk

Unk

31/01/2005

Pronto!
Agora deu td certo, Já entreguei funcionando OK!

Obrigado a Todos,


GOSTEI 0
POSTAR