radge,
Cita:
Empezado por radge
...tengo un DateTimePicker y me gustaría que se posicione en el primer día del mes actual...
|
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;
type
TForm1 = class(TForm)
DateTimePicker1: TDateTimePicker;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
Day, Month, Year : Word;
DateCurrent, DateTarget : TDateTime;
begin
DateCurrent := Now;
DecodeDate(DateCurrent,Year,Month,Day);
DateTarget := EncodeDate(Year,Month,1); DateTimePicker1.DateTime := DateTarget;
end;
end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32,
Establece la fecha de un TDateTimePicker al primer día del mes y año actual.
Espero sea útil
Nelson.