Converter TXSDate e TXSDecimal

08/03/2010

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

Curtidas 0

Respostas

Wesley Yamazack

Wesley Yamazack

08/03/2010

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
GOSTEI 0
Henrique Rocha

Henrique Rocha

08/03/2010

Boa tarde.

OK, funcionou.

Pode encerrar esse chamado.

Obrigado.

Henrique.
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

08/03/2010

Ok Amigo

Chamado fechado

Um abraço

Wesley Y
GOSTEI 0
POSTAR