Fórum datas,como eu faço....? #167490

Eu criei uma função que pega qualquer valor e gera uma data a partir dele e da data atula do sistema. Ou seja, por exemplo:

Se eu digitar ´10´ dentro de um edit, está função irá fazer ´10/07/2003´, pois o mês e o ano a função pega da data do sistema.

Não sei se é útil, porém pode ajudar.

Function Datar(Texto : string):string;
Var
i:integer;
Texto_f, comp, temp : string;
Begin
comp := DateToStr(Date);

If (Texto <> ´´) then
Begin
For i := 1 to Length(Texto) do //retira as barras da string
If (Texto[i] <> ´/´) then
Texto_f := Texto_f + Texto[i];


For i := 1 to Length(Texto_f) do
Begin
If (i = 3) or (i = 5) then

temp := temp + ´/´;

Temp := Temp + Texto_f[i];
End;

If Length(Temp) < 11 then
For i:= (length(Temp) + 1) to 11 do
Temp := Temp + comp[i];
End;
Result := Temp;
End;




[]
Oberdan :!:

Coloque este comando em seu código, que independente da configuração do windows, vc determina o formato da data.

ShortDateFormat := ´dd/mm/yyyy´;

[]s.

O Delphi permite formatar datas para apresentação por extenso de forma bastante simples. Vejamos os seguintes exemplos:

Para formatar a data 18/03/1999, podemos utilizar:

No create do form colocar

Shortdateformat:=

dddd, dd/mm/yyyy = Quinta, 18/03/1999
dd/mmm/yyyy = 18/Mar/1999
dddd, dd´ de ´mmmm´ de ´yyyy = Quinta, 18 de Março de 1999
dd´ de ´mmmm´ de ´yyyy, dddd = 18 de Março de 1999, Quinta

[]
Oberdan. :!: