Update num campo tipo date.

Delphi

30/03/2005

Boa tarde, efetuei uma rotina para fazer um update num campo de dada onde pego as informações num arquivo .txt como no ex.:
flag3 := copy(linha,329,8 );
- Pergunta como tratar essa variável flag3 para que eu posso fazer um update num campo data, pois estou recebendo uma string de 8 caracteres.

Obrigado.


Augustoctavares

Augustoctavares

Curtidas 0

Respostas

Rjun

Rjun

30/03/2005

sData := Copy(flag3, 1, 2) + ´/´ + Copy(flag3, 3, 2) + ´/´ + Copy(flag3, 5, 4);
Data := StrToDate(sData);

Rogerio


GOSTEI 0
Roswel

Roswel

30/03/2005

var
d,m,a: word;
sData : string;
begin
DateSeparator := ´/´;
ShortDateFormat := ´dd/mm/yyyy´;
if (Trim(flag3) <> ´/ /´) and (Trim(flag3) <> ´´) then
begin
DecodeDate(StrToDate(flag3),a,m,d);
sData := FormatFloat(´00´,m) + ´/´ + FormatFloat(´00´,d) + ´/´ + FloatToStr(a);
end;


UPDATE TABELA SET CAMPODATA = quotedstr(sData);

---------------------------------------------------------------------------

espero ter ajudado

Tiago


GOSTEI 0
Augustoctavares

Augustoctavares

30/03/2005

e quando aplico a função:

DateSeparator := ´-´;
ShortDateFormat := ´yyyy-mm-dd´;
if (Trim(flag3) <> ´- -´) and (Trim(flag3) <> ´´) then
begin
DecodeDate(StrToDate(flag3),a,m,d);
sData := FormatFloat(´00´,m) + ´-´ + FormatFloat(´00´,d) + ´-´ + FloatToStr(a);
end;

não chega nem a entrar no update.
o delphi fala que a função não é valida. e informa a string 04042005


GOSTEI 0
POSTAR