Para quem entede ALGORITMO X DELPHI

Question

Galera  eu quero saber se tem como  fazer uma mensagem  durante os 7 dias da semana .... toda vez e eu clica no  �cone para executa o programa  da um mensagem .........Exemplo:Se for  &#8220;Domingo&8...

Fbsouza · Answer

function DiaDaSemana(fData : tDate) : String;
begin
case dayofweek(fData) of
1 : Result := �Domingo�;
2 : Result := �Segunda-feira�;
3 : Result := �Ter�a-feira�;
4 : Result := �Quarta-feira�;
5 : Result := �Quinta-feira�;
6 : Result := �Sexta-feira�;
7 : Result := �S�bado�;
end;
end;
_____________________

No label fa�a o seguinte:

label1.caption:=diadasemana(now);

Espero ter ajudado
8)

Aroldo Zanela · Answer

[quote:fbc68c8496=�Jairo_GO�]Galera  eu quero saber se tem como  fazer uma mensagem  durante os 7 dias da semana .... toda vez e eu clica no  �cone para executa o programa  da um mensagem .........Exemplo:Se for  �Domingo�  ent�o Label1.caption:= � Bom dia �...Se for � sesta feira� ent�o Label1.caption:=� Bom final de semana�..Etc.... ..........[  ] s .........jario....e-mail => jairo2877@hotmail.com[/quote:fbc68c8496]var Mensagem: String;beginCase DayOfWeek(Date) of  1: Mensagem := �Bom dia! puxa que coisa �til.�;    2: Mensagem := �Adoro segunda-feira, � o dia que est� mais longe da pr�xima.�;    3: Mensagem := �bl� bl�;    4: Mensagem := ��;    5: Mensagem := ��;    6: Mensagem := �Have a nice weekend.�;    7: Mensagem := ��;end;  ShowMessage(Mensagem);end;...