domingo, 1 de dezembro de 2013

Função que Retorna da descrição o dia da Semana


Function Dia_da_Semana(data: tdatetime): String ;
Var dia: integer ;
Begin

   dia := dayofweek(data) ;

   Case Dia 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' ;
   Else
      Result := '' ;
   End ;

End ;

Nenhum comentário:

Postar um comentário