Array
(
)

DayOfWeek

Mantmor
   - 09 jun 2006


Citação:
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

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