Delphi 5 - Datetime primer dia del mes actual

[radge]

Buenas , tengo un dateTimePicker y me gustaria que se posicione en el primer dia del mes actual , lo único que he conseguido es algo como esto que me pone la data actual .

Código Delphi [-]
DateIni.Datetime := Now();

Gracias

[[nlsgarcia]]

radge,

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
    { Private declarations }
  public
    { Public declarations }
  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); // Primer día del mes y año actual
   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.

[radge]

Muchas gracias me sirvió al dedillo !!!

Graciasssssssssssssssssssssss