[Dúvida] Formartar Data, como adicionar ´0´ esquerda
:D Olá...
A dúvida é a seguinte...
Tenho um dbedit com a seguinte mascara: [b:776231c8bb]!99/99/0000;1;_[/b:776231c8bb]
Mas qdo o dbedit recebe a data atual.
Ex.: [color=blue:776231c8bb]dbedit1.text := datetostr(DATE)[/color:776231c8bb]
A data fica neste formato: [color=red:776231c8bb]12/_2/2008 [/color:776231c8bb]mas preciso q ela fique assim: [color=red:776231c8bb]12/02/2008[/color:776231c8bb]
:?: Gostaria q a data recebecesse o zero a esquerda do DIA e MÊS qdo necessário.
Alguem ajuda ae!!
:wink: Vlwss
Abraços!
A dúvida é a seguinte...
Tenho um dbedit com a seguinte mascara: [b:776231c8bb]!99/99/0000;1;_[/b:776231c8bb]
Mas qdo o dbedit recebe a data atual.
Ex.: [color=blue:776231c8bb]dbedit1.text := datetostr(DATE)[/color:776231c8bb]
A data fica neste formato: [color=red:776231c8bb]12/_2/2008 [/color:776231c8bb]mas preciso q ela fique assim: [color=red:776231c8bb]12/02/2008[/color:776231c8bb]
:?: Gostaria q a data recebecesse o zero a esquerda do DIA e MÊS qdo necessário.
Alguem ajuda ae!!
:wink: Vlwss
Abraços!
Educdc
Curtidas 0
Respostas
Ffabiop
13/02/2008
Acho que aí tem que acertar nas configuraçġes regionais do windows o formato da data.
Ou: dbedit1.text := FormatDateTime(´dd/mm/yyyy´,DATE);
Ou: dbedit1.text := FormatDateTime(´dd/mm/yyyy´,DATE);
GOSTEI 0
Uelinton_reis
13/02/2008
Aproveitando a sua pergunta.
Como devo fazer para formatar a data utilizando desta maneira:
cad_Orc.IBDataSet1.FieldByName(´DATA_CAD´).AsDateTime:= date;
obrigado.
Uelinton
Como devo fazer para formatar a data utilizando desta maneira:
cad_Orc.IBDataSet1.FieldByName(´DATA_CAD´).AsDateTime:= date;
obrigado.
Uelinton
GOSTEI 0
Onjahyr
13/02/2008
Aproveitando a sua pergunta.
Como devo fazer para formatar a data utilizando desta maneira:
cad_Orc.IBDataSet1.FieldByName(´DATA_CAD´).AsDateTime:= date;
obrigado.
Uelinton
a mesma coisa.... em vez do date que vc colocou, vc coloca o que ele disse..
GOSTEI 0
Educdc
13/02/2008
Ou: dbedit1.text := FormatDateTime(´dd/mm/yyyy´,DATE);
:arrow: Obrigado pelo ajuda!!
GOSTEI 0
Uelinton_reis
13/02/2008
Fiz conforme me disseram. Coloquei da mesma forma que esta aqui:
cad_Orc.IBDataSet1.FieldByName(´DATA_CAD´).AsDateTime:= FormatDateTime(´dd/mm/yyyy´, date);
Mas da o seguinte erro:
[Error] frmCadOrc.pas(225): Incompatible types: ´TDateTime´ and ´String´
[Fatal Error] SAGS.dpr(9): Could not compile used unit ´frmCadOrc.pas´
O que devo fazer?
Obrigado.
cad_Orc.IBDataSet1.FieldByName(´DATA_CAD´).AsDateTime:= FormatDateTime(´dd/mm/yyyy´, date);
Mas da o seguinte erro:
[Error] frmCadOrc.pas(225): Incompatible types: ´TDateTime´ and ´String´
[Fatal Error] SAGS.dpr(9): Could not compile used unit ´frmCadOrc.pas´
O que devo fazer?
Obrigado.
GOSTEI 0
Paullsoftware
13/02/2008
Fiz conforme me disseram. Coloquei da mesma forma que esta aqui:
cad_Orc.IBDataSet1.FieldByName(´DATA_CAD´).AsDateTime:= FormatDateTime(´dd/mm/yyyy´, date);
Mas da o seguinte erro:
[Error] frmCadOrc.pas(225): Incompatible types: ´TDateTime´ and ´String´
[Fatal Error] SAGS.dpr(9): Could not compile used unit ´frmCadOrc.pas´
O que devo fazer?
Obrigado.
tenta assim:cad_Orc.IBDataSet1.FieldByName(´DATA_CAD´).AsString := FormatDateTime(´dd/mm/yyyy´, date);
GOSTEI 0