Alterar Data e Hora Separadamente
Srs,
Utilizando a função abaixo consigo alterar facilmente a Data o Sistema, a partida de um edit, o problema é que altera também a hora para 00:00:00.
Eu desejo alterar também a hora, mas em momentos diferentes.
como fazer para alterar a Somente a Data e em outro momento Somente a Hora?
---------------------------------------------------------------------------
var
NovaData : TSystemTime;
Data : TDateTime;
begin
Data := StrToDateTime(edtData.Text);
DateTimeToSystemTime(Data, NovaData);
SetLocalTime(NovaData);
end;
---------------------------------------------------------------------------
Desde já agradeço
Utilizando a função abaixo consigo alterar facilmente a Data o Sistema, a partida de um edit, o problema é que altera também a hora para 00:00:00.
Eu desejo alterar também a hora, mas em momentos diferentes.
como fazer para alterar a Somente a Data e em outro momento Somente a Hora?
---------------------------------------------------------------------------
var
NovaData : TSystemTime;
Data : TDateTime;
begin
Data := StrToDateTime(edtData.Text);
DateTimeToSystemTime(Data, NovaData);
SetLocalTime(NovaData);
end;
---------------------------------------------------------------------------
Desde já agradeço
Aurino003
Curtidas 0
Respostas
Marco Salles
24/06/2005
Ja tentou o codigo abaixo, entre outras opçoes:
procedure TForm1.Button1Click(Sender: TObject); var NovaData : TSystemTime; Data : TDateTime; begin Data := StrTodate(edtData.Text)+time; DateTimeToSystemTime(Data, NovaData); SetLocalTime(NovaData); end;
GOSTEI 0
Aurino003
24/06/2005
Marcos,
Seu código corrige a data perfeitamente mas ainda assim altera a hora (acredito que ele busque a hora do interna e não a que é mostrada pro usuário, ou seja, com -5 horas).
De todo agradeço muito sua colaboração!
Consegui resolve utilizando o DateTimePicker (ainda assim tendo que corrigir o fuso em +3 horas, mas resolveu).
Um abraço
Aurino
Seu código corrige a data perfeitamente mas ainda assim altera a hora (acredito que ele busque a hora do interna e não a que é mostrada pro usuário, ou seja, com -5 horas).
De todo agradeço muito sua colaboração!
Consegui resolve utilizando o DateTimePicker (ainda assim tendo que corrigir o fuso em +3 horas, mas resolveu).
Um abraço
Aurino
GOSTEI 0
Marco Salles
24/06/2005
Seu código corrige a data perfeitamente mas ainda assim altera a hora (acredito que ele busque a hora do interna e não a que é mostrada pro usuário, ou seja, com -5 horas).
Amigo , eu agora nun entendi :cry: :cry: :cry:
O Codigo busca a hora Time interna ... Esta hora é a hora mostrada ao Usuário .. Voce diz que esta hora não é a mostrada .. Como assim :?: :?: :?: Poderia explicar melhor :?: :?: :?:
Qaundo voce executa o comando abaixo no seu pc que reultado dá
Showmessage(Timetostr(Time))
Não da a hora atual que é a hora interna :?: :?: :?:
GOSTEI 0
Aurino003
24/06/2005
[quote:45721f781c=´Marco Salles´]
Amigo , eu agora nun entendi :cry: :cry: :cry:
O Codigo busca a hora Time interna ... Esta hora é a hora mostrada ao Usuário .. Voce diz que esta hora não é a mostrada .. Como assim :?: :?: :?: Poderia explicar melhor :?: :?: :?:
Qaundo voce executa o comando abaixo no seu pc que reultado dá
Não da a hora atual que é a hora interna :?: :?: :?:[/quote:45721f781c]
---------------
Caro Salles,
Cometi um erro ao lhe postar a mensagem pois se utilizada como me passastes (usando edit) funciona perfeitamente. Todavia tentei utilizar DateTimePicker.Date (pra facilitar ao usuário) e aí gerou o erro.
Peço desculpas por não ter me expressado bem.
REITERO AOS USUÁRIOS DO FÓRUM QUE SEU CÓDIGO FUNCIONA PERFEITAMENTE!
Um abraço
Aurino
Seu código corrige a data perfeitamente mas ainda assim altera a hora (acredito que ele busque a hora do interna e não a que é mostrada pro usuário, ou seja, com -5 horas).
Amigo , eu agora nun entendi :cry: :cry: :cry:
O Codigo busca a hora Time interna ... Esta hora é a hora mostrada ao Usuário .. Voce diz que esta hora não é a mostrada .. Como assim :?: :?: :?: Poderia explicar melhor :?: :?: :?:
Qaundo voce executa o comando abaixo no seu pc que reultado dá
Showmessage(Timetostr(Time))
Não da a hora atual que é a hora interna :?: :?: :?:[/quote:45721f781c]
---------------
Caro Salles,
Cometi um erro ao lhe postar a mensagem pois se utilizada como me passastes (usando edit) funciona perfeitamente. Todavia tentei utilizar DateTimePicker.Date (pra facilitar ao usuário) e aí gerou o erro.
Peço desculpas por não ter me expressado bem.
REITERO AOS USUÁRIOS DO FÓRUM QUE SEU CÓDIGO FUNCIONA PERFEITAMENTE!
Um abraço
Aurino
GOSTEI 0
Marco Salles
24/06/2005
REITERO AOS USUÁRIOS DO FÓRUM QUE SEU CÓDIGO FUNCIONA PERFEITAMENTE!
Veja amigo. A minha idéia não tem este lado somente. Quando questionei o código , foi no sentido não tão somente do código funcionar ou não. Fico ate mais feliz quando descubro algo novo. Assim para mim ,vale mais um erro do que Dez acertos , desde que eu entenda o porquê do erro.
Foi neste sentido que repliquei e sempre o faço quando achar necessário.
sem o entuito de querer retratações ou engradecimentos...
Agora
Cometi um erro ao lhe postar a mensagem pois se utilizada como me passastes (usando edit) funciona perfeitamente. Todavia tentei utilizar DateTimePicker.Date (pra facilitar ao usuário) e aí gerou o erro.
Usei umEdit pois no Código original que me enviaste o nome estava bem intuitivo:
edtData.Text
GOSTEI 0
Aurino003
24/06/2005
Veja amigo. A minha idéia não tem este lado somente. Quando questionei o código , foi no sentido não tão somente do código funcionar ou não. Fico ate mais feliz quando descubro algo novo. Assim para mim ,vale mais um erro do que Dez acertos , desde que eu entenda o porquê do erro.
Foi neste sentido que repliquei e sempre o faço quando achar necessário.
sem o entuito de querer retratações ou engradecimentos...
------------------------
Caro Salles,
Em momento algum julguei suas palavras! Só quis deixar claro para outros usuários que o código funciona pois nos (meu caso) que não temos muito experiência, ao buscarmos um código damos preferência aqueles que tem uma mensagem dizendo que funciona.
Foi somente isso.
Mais uma vez agredeço muito sua atenção.
Um abraço
Aurino
Foi neste sentido que repliquei e sempre o faço quando achar necessário.
sem o entuito de querer retratações ou engradecimentos...
------------------------
Caro Salles,
Em momento algum julguei suas palavras! Só quis deixar claro para outros usuários que o código funciona pois nos (meu caso) que não temos muito experiência, ao buscarmos um código damos preferência aqueles que tem uma mensagem dizendo que funciona.
Foi somente isso.
Mais uma vez agredeço muito sua atenção.
Um abraço
Aurino
GOSTEI 0
Marco Salles
24/06/2005
Veja amigo , não se trata de uma má resposta mas sim apenas uma defesa para uma má interpretação..., Acho que estamos bem na fita
No mais um abraço
No mais um abraço
GOSTEI 0
Jose Oliveira
24/06/2005
Me ajudem, nenhuma dessas opções mudam a data e hora do sistema no windows 7
obrigado
obrigado
GOSTEI 0