Tema: lunes primer dia de la semana
Ver Mensaje Individual
  #4  
Antiguo 25-03-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
  
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
Cita:
Empezado por dtomeysoto Ver Mensaje
Alguna otra recomendación?
Hola, puedes hacerlo utilizando las funciones de la unit DateUtils.

Código Delphi [-]
var
 FchActual : TDateTime;
begin
 FchActual := Date;
 DateTimePicker1.Date := IncDay(FchActual, - (DayOfTheWeek(FchActual)-1));

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita