Update num campo tipo date.

Question

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.

Rjun · Answer

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

Roswel · Answer

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 ajudadoTiago...

Augustoctavares · Answer

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

F�rum Update num campo tipo date. #274685