DayOfWeek

[quote:5ac407f1c7=´Moderação´][color=red:5ac407f1c7]Tópico bloqueado por Massuda

Tópico duplicado/multipost

Mantenha a discussão no seu tópico original:
http://forum.clubedelphi.net/viewtopic.php?t=77996[/color:5ac407f1c7][/quote:5ac407f1c7]
Amigos,

Como faço para corrigir o erro nesta rotina ?

Utilizando Delphi 2006 tipo de aplicação Windows Forms

function TWinForm1.mostra: string;
var
strdata: DateTime;
strdia: integer;
strsemana: String;
begin
strdata := DateTime.Now.Date;

strdia := DayOfWeek(strdata); *// Linha com erro*

case strdia of
1: strsemana := ´Domingo´;
2: strsemana := ´Segunda´;
3: strsemana := ´Terça´;
4: strsemana := ´Quarta´;
5: strsemana := ´Quinta´;
end;
Result := strsemana + ´--´+ Convert.ToString(strdata);

end;

Como faço para utilizar a função DayOfWeek ?

Marcos Antonio