Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Delphi 5 - Datetime primer dia del mes actual (https://www.clubdelphi.com/foros/showthread.php?t=88278)

radge 13-05-2015 18:50:20

Delphi 5 - Datetime primer dia del mes actual
 
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 13-05-2015 19:28:37

radge,

Cita:

Empezado por radge
...tengo un DateTimePicker y me gustaría que se posicione en el primer día del mes actual...

:rolleyes:

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 19-05-2015 17:16:19

Muchas gracias me sirvió al dedillo !!!

Graciasssssssssssssssssssssss


La franja horaria es GMT +2. Ahora son las 06:38:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi