Soma e Data
Colegas dois perguntas:
1º para somar dois edits eu faço assim:
Var
Op1, Op2: Real;
Codigo1, Codigo2: Integer;
begin
val(Edit1.Text,op1,codigo1);
val(Edit2.Text,op2,codigo2);
if (codigo1 = 0) and (codigo2 = 0)
then
Edit3.Text := FloatToStr(op1 + op2)
Só que preciso somar dois DBEdits com esse EditMask ou DisplayFormat:= R$ #,0.00 ai o procedimento acima não funciona como devo fazer.
2º Como pesquiso Dia e Mês numa data para que me retorne os aniversariantes do mês.
Uso Delphi 7 com Access XP
Obrigado a Todos.
:lol:
1º para somar dois edits eu faço assim:
Var
Op1, Op2: Real;
Codigo1, Codigo2: Integer;
begin
val(Edit1.Text,op1,codigo1);
val(Edit2.Text,op2,codigo2);
if (codigo1 = 0) and (codigo2 = 0)
then
Edit3.Text := FloatToStr(op1 + op2)
Só que preciso somar dois DBEdits com esse EditMask ou DisplayFormat:= R$ #,0.00 ai o procedimento acima não funciona como devo fazer.
2º Como pesquiso Dia e Mês numa data para que me retorne os aniversariantes do mês.
Uso Delphi 7 com Access XP
Obrigado a Todos.
:lol:
Kebrado
Curtidas 0
Respostas
Edineidaniel
10/06/2004
Kebrado,
tá um tanto estranho seu código... use este quem sabe funcione...
Var
val1, val2, res : Real;
Begin
val1 := StrToFloat(DBEdit1.text);
val2 := StrToFloat(DBEdit2.text);
res := val+val2;
DBEdit3.text := FloatToStr(res);
acabei de testar e deu certo...
qualquer duvida responda...
t+
Edinei
tá um tanto estranho seu código... use este quem sabe funcione...
Var
val1, val2, res : Real;
Begin
val1 := StrToFloat(DBEdit1.text);
val2 := StrToFloat(DBEdit2.text);
res := val+val2;
DBEdit3.text := FloatToStr(res);
acabei de testar e deu certo...
qualquer duvida responda...
t+
Edinei
GOSTEI 0
Kebrado
10/06/2004
Colega fiz assim:
[color=red:57503a6647]procedure TFrm_Pagamentos.Button1Click(Sender: TObject);
Var
Val1, Val2, Res: Real;
begin
val1 :=StrToFloat(DBEdit1.Text);
val2 :=StrToFloat(DBEdit2.Text);
res := val1+val2;
DBEdit3.Text := FloatToStr(res)[/color:57503a6647]
No DataModule coloqui Currency nos campos correspontentes como True ou como False só que da o mesmo erro:
ra
[color=red:57503a6647]raised excipition classe Econverterror with message ´r$ 00,00´ is not a valid floating point value[/color:57503a6647]
onde errei? :oops:
[color=red:57503a6647]procedure TFrm_Pagamentos.Button1Click(Sender: TObject);
Var
Val1, Val2, Res: Real;
begin
val1 :=StrToFloat(DBEdit1.Text);
val2 :=StrToFloat(DBEdit2.Text);
res := val1+val2;
DBEdit3.Text := FloatToStr(res)[/color:57503a6647]
No DataModule coloqui Currency nos campos correspontentes como True ou como False só que da o mesmo erro:
ra
[color=red:57503a6647]raised excipition classe Econverterror with message ´r$ 00,00´ is not a valid floating point value[/color:57503a6647]
onde errei? :oops:
GOSTEI 0
Edineidaniel
10/06/2004
O problema está no ´R$´...
vc naum consegue mudar o tipo da variável para Real.....!!???
t+
Acho que naum vou poder responder mais hj a noite...
so amanha cedo...
t+
Edinei
vc naum consegue mudar o tipo da variável para Real.....!!???
t+
Acho que naum vou poder responder mais hj a noite...
so amanha cedo...
t+
Edinei
GOSTEI 0
Thomaz_prg
10/06/2004
Cara, ao inves de usar o [b:9f35817764]strtofloat[/b:9f35817764] e o [b:9f35817764]floattostr[/b:9f35817764], utilize as funcoes [b:9f35817764]strtocurr[/b:9f35817764] e [b:9f35817764]currtostr[/b:9f35817764], que sao para valores monetarios.
GOSTEI 0