Como obter o dia de uma data?
1
2
3
4
5
6
7
8
9
10
| { É necessário declarar DateUtils
Em versões unicode declare System.DateUtils }
// Função do Delphi: DayOf( Data )
// Retorno: Inteiro( Integer )
// Exemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr( DayOf(EncodeDate(2008, 5, 15) ) ));
end; |
{ É necessário declarar DateUtils
Em versões unicode declare System.DateUtils }
// Função do Delphi: DayOf( Data )
// Retorno: Inteiro( Integer )
// Exemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr( DayOf(EncodeDate(2008, 5, 15) ) ));
end;
Post Views: 8.872
-
InfusTec
-
- 0 comentários
- 18 de março de 2015
