Fórum pegar dia e mes ... #155090
15/04/2003
0
ola
estu querendo colocar no meu programa uma senha para q a primeira vez q o programa for utilizado eu terei q libera-lo para meu cliente.
Meu chefe propos um calcupo com data ... tipo pego o dia e o mês, somo com 1200 e faço vezes 2. dai fica
15/04/2003 - fica (1504+1200)*2=5408
ou seja a primeira vez q executar o programa necessito essa senha. 5408, isso se fosse executado hj ... dai só eu saberei a senha.
mas preciso fazer isso apenas na primeira vez. Alguem pode me dar uma mão?
estu querendo colocar no meu programa uma senha para q a primeira vez q o programa for utilizado eu terei q libera-lo para meu cliente.
Meu chefe propos um calcupo com data ... tipo pego o dia e o mês, somo com 1200 e faço vezes 2. dai fica
15/04/2003 - fica (1504+1200)*2=5408
ou seja a primeira vez q executar o programa necessito essa senha. 5408, isso se fosse executado hj ... dai só eu saberei a senha.
mas preciso fazer isso apenas na primeira vez. Alguem pode me dar uma mão?
Fer
Curtir tópico
+ 0
Responder
Posts
15/04/2003
Bruno Roberto
procedure TForm1.Button1Click(Sender: TObject);
var
Soma, Senha: String;
Ano, Mes, Dia: Word;
begin
DecodeDate(StrToDate(´15/04/2003´), Ano, Mes, Dia);
Soma := FormatFloat(´00´, Dia) + FormatFloat(´00´, Mes);
Senha := IntToStr((StrToInt(Soma) + 1200) * 2);
end;
--
Bruno Roberto.
var
Soma, Senha: String;
Ano, Mes, Dia: Word;
begin
DecodeDate(StrToDate(´15/04/2003´), Ano, Mes, Dia);
Soma := FormatFloat(´00´, Dia) + FormatFloat(´00´, Mes);
Senha := IntToStr((StrToInt(Soma) + 1200) * 2);
end;
--
Bruno Roberto.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)