Fórum Soma e Data #237162
10/06/2004
0
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
Curtir tópico
+ 0Posts
10/06/2004
Edineidaniel
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
10/06/2004
Kebrado
[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
10/06/2004
Edineidaniel
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
11/06/2004
Thomaz_prg
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)