Quepasa.com.br - Delphi - Alguem Pode Passar A Funçã.. ?

MEMBROS (17)

Thaynara Mira Barbosa

SUB-GRUPOS (1)

OUTROS GRUPOS

Organizações Internacionais

MSN

NOVOS USUÁRIOS

danieli vieira de queiroz

glaucia ribeiro dos santos

Hynaê Marcelly

ver todos »

O que leva um homem que ama sua esposa a trai-la?

a) Curiosidade

b) Falta de Sexo

c) Falta de Amor

d) Falta de Respeito

Amor

ver outra »

Perfil Perguntas (9)Enquetes (0)Membros (17)Grupos

Recebi (5)Respondi (4)Pendentes (1)BuscarWidget

                PHP Error [2]: Trying to access array offset on false

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1153)

                PHP Error [2]: Trying to access array offset on false

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1154)

                PHP Error [2]: Undefined variable $html

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1158)

                PHP Error [2]: Trying to access array offset on false

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1172)

                PHP Error [2]: Undefined variable $html_pos

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1173)

                PHP Error [2]: Undefined variable $html_neg

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1174)

                PHP Error [2]: Undefined variable $html_fav

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1175)

                PHP Error [2]: Trying to access array offset on false

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1191)

                PHP Error [2]: Trying to access array offset on false

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1191)

                PHP Error [2]: Undefined array key "favor"

                Arquivo: /home2/jamess09/w_quepasa.com.br/tool/imsg/imsg_class.php (linha 1255)

U07E6_USER

000000000

perguntou para Delphi25-Aug-10 23:25

alguem pode passar a função para apresentação de uma data no formato 'dia da semana'?

Delphi

respondeu:01-Sep-10 02:07

function MostraData(dtData: TDateTime): string;
var
intDiaSemana: integer;
strDiaSemana: string;
begin
intDiaSemana := DayOfWeek(dtData);
case intDiaSemana of
1: strDiaSemana := 'Domingo - ';
2: strDiaSemana := 'Segunda-feira - ';
3: strDiaSemana := 'Terça-feira - ';
4: strDiaSemana := 'Quarta-feira - ';
5: strDiaSemana := 'Quinta-feira - ';
6: strDiaSemana := 'Sexta-feira - ';
7: strDiaSemana := 'Sábado - ';
end;
Result := strDiaSemana+DateToStr(dtData);
end;

Responder

Compartilhe

Gostou: Sim Não

Adicionar Favorito

Remover

Denunciar conteúdo

URL:

HTML: