DateTimePicker mayor rango

[compuin]

Hola Foro

Me encuentro que el DateTimePicker no retrocede fechas mas alla de 1610.

Existe alguna forma de extender esto, por ejemplo, llegar al anio 1 BC o es un comportamiento del control?

En mi caso utilizo Delphi 7

Gracias de antemano

[Casimiro Notevi]

No recuerdo si delphi 7 tiene la propiedad mindate:

[compuin]

Hola

ya lo he intentado pero no funciona

[compuin]

open png image

[ecfisa]

Hola.

Es un comportamiento de windows.

Windows does not support dates prior to 1601. See the FILETIME structure for details.

The control is based on the Gregorian calendar, which was introduced in 1753. It will not calculate dates that are consistent with the Julian calendar.

Extraido de: About Date and Time Picker Controls

Saludos

[compuin]

Muchas gracias a ambos

[ecfisa]

Hola de nuevo.

De todos modos, si el rango de fechas es tán amplio, el TDateTimePicker no es cómodo para desplazarse por ellas.
Seguramente el usuario se sienta mas cómodo ingresando la fecha manualmente mediante un TMaskEdit, por ejemplo.

Saludos

[compuin]

He intentado MaskEdit pero no logro que me tome una fecha bajo este formato

Código Delphi [-]
01.01.2001

[ecfisa]

Hola.

Intenta esta máscara a ver si cumple con lo que necesitas:

Código Delphi [-]
procedure TForm.FormCreate(Sender: TObject);
begin
  MaskEdit1.EditMask := '!09.09.0099;1;_';
...

Saludos

[compuin]

Excelente!!!

Muchas gracias

[compuin]

Es posible hacer una mascara asi ?

Que pueda mostrar los simbolos de grados, minutos y segundos

[ecfisa]

Hola.

¿ Algo así ?

Código Delphi [-]
...
begin
  MaskEdit1.Text     := '';
  MaskEdit1.EditMask := '!90°90''90";1;_'

Saludos

[compuin]

Al digitar los valores me borra los simbolos

[ecfisa]

Hola.

Que raro... será la versión de Delphi, en mi caso funciona correctamente:



Saludos

[compuin]

Empezado por ecfisa

Hola.

¿ Algo así ?

Código Delphi [-]
...
begin
  MaskEdit1.Text     := '';
  MaskEdit1.EditMask := '!90°90''90";1;_'

Saludos

Hola,

A esta mascara como le puedo agregar para que me quede con una letra al final, de esta manera

Código Delphi [-]

 10° 29' 45"N

Muchas gracias

[ecfisa]

Hola.

Solo agrega el caracter donde lo deseas, ej.:

Código Delphi [-]
  '!90°90''90"N;1;_'

Saludos

[compuin]

Empezado por ecfisa

Hola.

Solo agrega el caracter donde lo deseas, ej.:

Código Delphi [-]
  '!90°90''90"N;1;_'

Saludos

Muchas gracias

Me funciona como me indicastes (N=Norte), pero en tiempo de ejecucion no me permite modificarlo si trato de colocar S(S=Sur)

[ecfisa]

Hola.

Código Delphi [-]
function GradeWidthDir(const Dir: Char): string;
begin
  Result :=   '!90°90''90" ' + Dir + ';1;_';
end;

Uso:

Código Delphi [-]
  MaskEdit1.Text     := '';
  MaskEdit1.EditMask :=  GradeWidthDir('E');

Saludos