PDA

Ver la Versión Completa : Fechas


Walterdf
29-09-2003, 23:19:36
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:
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
ADiaSiguiente := AFecha+1;

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

Saludos!