dUVIDA Data nascimento

Delphi

24/03/2004

alguem sabe como completar tipo! palera IBedit Ex: 14/09/1985 ! quando se vai salvar no BD o zero é cortado, ai eu querendo fazer uma function COPY vai ficar bugado! por que o cliente pode ter a data de nascimento Ex: 01/02/1985 e com a paleta IBedit vai ser salvo 1/2/1985 quando a função copy for feita vai pegar os capnpos errados! como eu fasso pra pegar só o MÊS usando a paleta IBedit?


Robsonfmp

Robsonfmp

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

24/03/2004

Colega,


Adicione DateUtils na lista de uses.
var nMes: Word;
begin
  nMes := MonthOf(Date);
...



GOSTEI 0
Delphi32

Delphi32

24/03/2004

Antes de fazer o copy você pode formatar a data:

var s:string
s:=FormatDateTime(´dd/mm/yy´,Campo.AsDateTime);



GOSTEI 0
POSTAR