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!
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.