Fórum Converter TXSDate e TXSDecimal #19203

08/03/2010

0

Bom dia!


1 -    Como faço para converter para TXSDate, exemplo

           SimPGAvista.dataPrevisaoPgto :=  DateTimePicker1.Date;

   onde SimPGAvista.dataPrevisaoPgto é do Tipo TXSDate.

           
2 -   Como faço para converter para TXSDecimal, exemplo:


          SimPGAvista.porcentagemDescontoConcedido :=  '10,55';

 onde SimPGAvista.porcentagemDescontoConcedido  é do tipo TXSDecimal.



Obrigado.

Henrique.    
Henrique Rocha

Henrique Rocha

Responder

Posts

08/03/2010

Wesley Yamazack

Olá amigo, fiz um teste aqui e consegui fazer da seguinte forma.


  X : TXSDate;
  d : TXSDecimal;
begin
  x := TXSDate.Create;
  x.AsDate := DateTimePicker1.DateTime;
  d := TXSDecimal.Create;
  d.DecimalString := '1230.30';
  ShowMessage(d.DecimalString);
  ShowMessage(DateToStr(X.AsDate));

Veja se seria isso.

Um abraço

Wesley Y
Responder

Gostei + 0

08/03/2010

Henrique Rocha

Boa tarde.

OK, funcionou.

Pode encerrar esse chamado.

Obrigado.

Henrique.
Responder

Gostei + 0

08/03/2010

Wesley Yamazack

Ok Amigo

Chamado fechado

Um abraço

Wesley Y
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar