Como saber se uma data é o dia corrente?
1
2
3
4
5
6
7
8
9
10
11
12
13
| { É necessário declarar DateUtils,
em versões unicode declare System.Sysutils }
// Função do Delphi: IsToday
// Exemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsToday( EncodeDate(2007, 12, 15) ) then
ShowMessage('Esta data é hoje.')
else
ShowMessage('Esta data não é hoje.')
end; |
{ É necessário declarar DateUtils,
em versões unicode declare System.Sysutils }
// Função do Delphi: IsToday
// Exemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsToday( EncodeDate(2007, 12, 15) ) then
ShowMessage('Esta data é hoje.')
else
ShowMessage('Esta data não é hoje.')
end;
Post Views: 1.453
-
InfusTec
-
- 0 comentários
- 20 de março de 2015
