Fórum Alterar Data e Hora Separadamente #286063
24/06/2005
0
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
Curtir tópico
+ 0Posts
24/06/2005
Marco Salles
procedure TForm1.Button1Click(Sender: TObject); var NovaData : TSystemTime; Data : TDateTime; begin Data := StrTodate(edtData.Text)+time; DateTimeToSystemTime(Data, NovaData); SetLocalTime(NovaData); end;
Gostei + 0
24/06/2005
Aurino003
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
24/06/2005
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á
Showmessage(Timetostr(Time))
Não da a hora atual que é a hora interna :?: :?: :?:
Gostei + 0
25/06/2005
Aurino003
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
25/06/2005
Marco Salles
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
Usei umEdit pois no Código original que me enviaste o nome estava bem intuitivo:
Gostei + 0
25/06/2005
Aurino003
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
25/06/2005
Marco Salles
No mais um abraço
Gostei + 0
25/08/2010
Jose Oliveira
obrigado
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)