Fórum Como obter a data do Windows #290579
03/08/2005
0
Gostaria de saber como faço p/obter a data do Windows sem as barras(/), no seguinte formato: aammdd.
E tbm gostaria d saber como faço p/incluir mais 4 digitos aleatórios ao final da data. Tem como??
Desde já agradeço.
[]´s.
Fabiano_aprendiz
Curtir tópico
+ 0Posts
03/08/2005
Marco Salles
procedure TForm1.Button1Click(Sender: TObject);
var
data:String;
dataAux:String;
i:Integer;
begin
randomize;
dataAux:=´´;
data:=DateToStr(Date);
for i:=1 to Length(Data) do
begin
if data[i] in [´0´..´9´] then
dataAux:=DataAux+Data[i];
end;
i:=Random(9999);
i:=9999 - i;
Data:=DataAux+Format(´¬d´,[i]);
showmessage(Data);
end;Gostei + 0
03/08/2005
Delphi32
var s:string;
data:TDateTime;
begin
data := Now;
s := FormatDateTime(´aammdd´,data);
end;
Até!
Gostei + 0
03/08/2005
Marco Salles
1) Altera o formato da Data do Windows , para o formato adequado
2)Alterar o Formato da data ao longo de todo aplicativo
3)alterar o formato em um uma variável ou componete especifico Especificoatarves de formatação
4)Alterar o formato em um componente ou variável atráves de digitação
etcc..
Pegando carona na dica delphi32
var Data:string; i:Integer; begin Data := FormatDateTime(´ddmmyyyy´,date); i:=Random(9999); i:=9999 - i; Data:=Data+Format(´¬d´,[i]); showmessage(Data); end;
Gostei + 0
03/08/2005
Fabiano_aprendiz
Obrigado pelas dicas, só não vou poder testar agora, pois tenho q dar uma saída, mas assim q voltar vou testar e se ficar ok eu coloco aqui.
Vlw,
[]´s.
Gostei + 0
03/08/2005
Fabiano_aprendiz
[]´s.
Gostei + 0
04/08/2005
Marco Salles
amigo tive revendo o seu tópico e reformulo a minha ultima postagem
:cry: :cry: :cry: :cry:
interpretei de outro modo , mas vejo que sera[b:fada88a747] necessário [/b:fada88a747]que ao final desta data seje incluido sempre [b:fada88a747]quatro[/b:fada88a747] digitos..
:idea: :idea: :idea: :idea:
Então sugiro uma pequena alteração no codigo , que ira prencher com zeros , para evitar que a formatação tenha sempre 4 digitos apos a Data
var Data:string; i:Integer; begin randomize; Data := FormatDateTime(´ddmmyyyy´,date); i:=Random(9999); Data:=Data+FormatFloat(´0000´,i); showmessage(Data);
Talves esta form alhe interresse mais :lol: :lol: :lol:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)