DayOfWeek
09/06/2006
0
[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
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
Mantmor
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)