Delphi FMX - Converter Date para String
Fala pessoal,
Bom, estou com um problema aparentemente simples, mas ainda não consegui resolver.
Tenho uma tabela no Firebird com um campo no formato DATE. Quando faço o select no banco, ele retorna a data de todos os registros neste formato 01-01-2022.
Gostaria de saber como faço para converter este formato "01-01-2022" para "01/01/2022".
Obs.: Lembrando que a consulta é via retorna um JSON que popula uma MemTable. E da MemTable que busco os registros.
Obrigado pela ajuda desde já!
Bom, estou com um problema aparentemente simples, mas ainda não consegui resolver.
Tenho uma tabela no Firebird com um campo no formato DATE. Quando faço o select no banco, ele retorna a data de todos os registros neste formato 01-01-2022.
Gostaria de saber como faço para converter este formato "01-01-2022" para "01/01/2022".
Obs.: Lembrando que a consulta é via retorna um JSON que popula uma MemTable. E da MemTable que busco os registros.
Obrigado pela ajuda desde já!
Jonas Gonçalves
Curtidas 0
Melhor post
Lucas Santato
05/08/2022
Fala pessoal,
Bom, estou com um problema aparentemente simples, mas ainda não consegui resolver.
Tenho uma tabela no Firebird com um campo no formato DATE. Quando faço o select no banco, ele retorna a data de todos os registros neste formato 01-01-2022.
Gostaria de saber como faço para converter este formato "01-01-2022" para "01/01/2022".
Obs.: Lembrando que a consulta é via retorna um JSON que popula uma MemTable. E da MemTable que busco os registros.
Obrigado pela ajuda desde já!
Bom, estou com um problema aparentemente simples, mas ainda não consegui resolver.
Tenho uma tabela no Firebird com um campo no formato DATE. Quando faço o select no banco, ele retorna a data de todos os registros neste formato 01-01-2022.
Gostaria de saber como faço para converter este formato "01-01-2022" para "01/01/2022".
Obs.: Lembrando que a consulta é via retorna um JSON que popula uma MemTable. E da MemTable que busco os registros.
Obrigado pela ajuda desde já!
Você pode usar a função StringReplace do delphi.
DataString := StringReplace(Data, ' - ', ' / ', [rfReplaceAll, rfIgnoreCase])
Ela vai substituir todos os "-" que forem encontrados na string por "/".
rfReplaceAll = Substitui todas as ocorrências encontradas na string.
rfIgnoreCase = Ignora se é maiúsculo ou minúsculo.
GOSTEI 1