Maskedit parcial

[[José Luis Garcí]]

Buenos días compañero, hacia mucho que no me conectaba y también bastante que no programa.

Seguramente será una bobería, pero se trata de poner en un maskedit para meter el día y el mes, pero no el año, este debe aparecer por defecto el año actual. si os sirve de ejemplo como en el a3eco, que si mites 0510 del ejercicio 2020 estasis pasando la fecha 05/10/2020.

Sería tanto para un dbedit, como para el dbgrid

Un abrazo virtual a todos y muchas gracias como siempre por vuestra ayuda

[ecfisa]

Hola José Luís.

Si entendí bién, se me ocurre que podrías usar un MaskEdit para el día y el mes y pegado a él, un Edit donde previamente situarias el año. Algo así:

Código Delphi [-]
uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MaskEdit1.BorderStyle := bsNone;
  MaskEdit1.EditMask    := '00/00/;1;_';
  Edit1.BorderStyle     := bsNone;
  Edit1.Text            := YearOf(Now).ToString;
  Edit1.ReadOnly        := True;
  Edit1.TabStop         := False;
end;

Quedando de este modo:


Saludos

[ecfisa]

Hola de nuevo.

Me había olvidado que el TEditMask permite caracteres literales... , así que podes hacerlo solamente con el componente MaskEdit:

Código Delphi [-]
uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  y : string;
begin
  y := YearOf(Now).ToString; // o el año que elijas ej.: '1975'
  y := '\'+y[1]+'\'+y[2]+'\'+y[3]+'\'+y[4];
  MaskEdit1.EditMask   := '!99/99/' + y;
end;

Salida:


Saludos

[[José Luis Garcí]]

Empezado por ecfisa

Hola de nuevo.

Me había olvidado que el TEditMask permite caracteres literales... , así que podes hacerlo solamente con el componente MaskEdit:

Código Delphi [-]
uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  y : string;
begin
  y := YearOf(Now).ToString; // o el año que elijas ej.: '1975'
  y := '\'+y[1]+'\'+y[2]+'\'+y[3]+'\'+y[4];
  MaskEdit1.EditMask   := '!99/99/' + y;
end;

Salida:


Saludos

Como siempre esplendida solución, muchas gracias.
Esto es lo que hecho de menos de programar, pero realmente estoy muy enfadado con Embarcadero, ya que ya no puedo usar mi delphi 2010, por haber acabado con el número de veces que podía instalar mi versión de Delphi, lo que realmente me molesta es que nadie te avisa cuando compras la licencia, se supone que la puedes usar todas las veces que quieras, y hace ya unos años, estuve cambiando de equipo muy a menudo, con los que en cada uno lo instalaba, hasta que ya no me lo permitieron más.
Odio la piratería, pero a veces no te dejan otra opción, que o hacerte pirata o no seguir usando un sistema al que le has dedicado años de tu vida.

Como siempre, lamento la paliza y muchas gracias ecfisa

[[José Luis Garcí]]

Acabo de probarlo, y con pequeñas modificaciones así es como he dejado el código

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  y : string;
begin                    //add dateUtils
  y := IntToStr(YearOf(Now)); // o el año que elijas ej.: '1975'
  y := '\'+y[1]+'\'+y[2]+'\'+y[3]+'\'+y[4];
  medt1.EditMask:='';
  medt1.EditMask   := '!99/99/' + y;
  y := '1968'; // o el año que elijas ej.: '1975'
  y := '\'+y[1]+'\'+y[2]+'\'+y[3]+'\'+y[4];
  medt2.EditMask:='';
  medt2.EditMask :='!99/99/' + y;
end;

procedure TForm1.medt1Exit(Sender: TObject);
begin
  try
     StrToDate(TMaskEdit(Sender).Text)
  except on E: Exception do
     begin
       ShowMessage('Error: fecha no valida');
       TMaskEdit(Sender).SetFocus;
     end;
  end;
end;

Gracias, funciona perfectamente, es lo que quería