Iniciante
2 dúvidas
como faço para formatar um campo ´edit´ em valor?
com o símbolo R$ e alinhado à dir
a outra dúvida é, quero colocar num formulário quando é ativado, um timerpicker receba a data do dia 1º do mesmo mês da data do sistema
Agradeço antecipadamente
como faço para formatar um campo ´edit´ em valor?
com o símbolo R$ e alinhado à dir
a outra dúvida é, quero colocar num formulário quando é ativado, um timerpicker receba a data do dia 1º do mesmo mês da data do sistema
Agradeço antecipadamente
Henriquebyte
Curtidas 0
Respostas
Carnette
17/02/2003
Function PrimeiroDiaMes (Data : TDateTime) : TDateTime;
var
Ano, Mes, Dia : word;
begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
PrimeiroDiaMes := EncodeDate (Ano, Mes, Dia);
end;
DateTimePicker1.Date := PrimeiroDiaMes(now);
Quanto a formatar um Edit e alinhar a direita..se, voce tem a bibliote RxLib, ela tem um componente chamado CurrencyEdit1 ou RxDBCalcEdit1 para acesso a dados que fazem o que voce quer
var
Ano, Mes, Dia : word;
begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
PrimeiroDiaMes := EncodeDate (Ano, Mes, Dia);
end;
DateTimePicker1.Date := PrimeiroDiaMes(now);
Quanto a formatar um Edit e alinhar a direita..se, voce tem a bibliote RxLib, ela tem um componente chamado CurrencyEdit1 ou RxDBCalcEdit1 para acesso a dados que fazem o que voce quer
GOSTEI 0
Luciano Pimenta®
17/02/2003
Edit1.text:=FormatFloat(´R$ #.00´,CAMPO.AsCurrency);
Se vc estiver pegando o valor de outro lugar converte o tipo para Currency.
T+
:)
Se vc estiver pegando o valor de outro lugar converte o tipo para Currency.
T+
:)
GOSTEI 0
Diana
17/02/2003
hum para formatar o valor em R$...faça assim
Edit1.Text:=FormatFloat(´R$ #.´variavel);
Agora quanto ao timepiker, tb estou atrás de uma dica....
Edit1.Text:=FormatFloat(´R$ #.´variavel);
Agora quanto ao timepiker, tb estou atrás de uma dica....
GOSTEI 0