Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Fechas (https://www.clubdelphi.com/foros/showthread.php?t=4039)

Walterdf

29-09-2003 23:19:36

Fechas

Hola a todos.
Necesitaría una mano con esto. Quisiera saber el código para que un programa me diga la fecha en que caen todos los martes de un mes determinado.
Muchas gracias.
Walter

delphi.com.ar

29-09-2003 23:48:49

Con la función DayOfWeek, puedes averiguar si una fecha es un martes:

Código:

if DayOfWeek(AFecha) = 3 Then

  ShowMessage('Martes');

Las variables del tipo TDateTime y TDate son números, que en su parte entera guardan el valor de la fecha, sumándole un 1 incrementarás en un día la fecha, sumandole 7, incrementarás una semana

Código:

ADiaSiguiente := AFecha+1;

Con estas dos funcionalidades, podrás hacer muy fácilmente lo que querés.

Saludos!

La franja horaria es GMT +2. Ahora son las 17:12:34.