Ayuda con DateTimePicker1

[Fat]

por favor necesito ayudes pues tengo el mismo problema y no se usar la función.

[[Lepe]]

Está respondido... pero vayamos un poco más allá:

Código Delphi [-]

uses DateUtils;

procedure Mio;
var a,m, d : Word;
begin
  DecodeDate(date, a,m,d);
// ya tenemos  el año, mes y dia en tres variables
end;

Saludos

[Fat]

Tengo dos DateTimePicker1 necesito saber los días de diferencia entre una fecha y otra, por ejemplo entre 1/01/2006 y 1/02/2006 que me diga que la diferencia es 31

[[Lepe]]

En ese caso usa DaysBetween y DaySpan de la unidad DateUtils, una te devuelve días completos, y la otra incluso fracciones (si consideras las horas).

Saludos

[thelibmx]

Hola amigos mi problema es que Encondedate me separa la fecha en partes y eso esta muy bien, pero y bien..., cual es la opcion para lo contrario, es decir tengo unos cuadros de texto para año dia y mes, para juntarlos cual es el procedimieto, mmm creo que se me viene a la mente concatenar pero acaso abra otra cosa mas que se pueda hacer? (si es posible me gustaria que me lo exlicaran con un codigo de ejemplo (la verdad es que le entiendo mejor viendolo con la sintaxis jeje)) bueno gracias por la ayuda

[[ArdiIIa]]

Empezado por thelibmx

Hola amigos mi problema es que Encondedate me separa la fecha en partes y eso esta muy bien, pero y bien...,

Mal, pero muy mal... Encodedate hace lo contrario de lo que citas...

Empezado por thelibmx

(si es posible me gustaria que me lo exlicaran con un codigo de ejemplo (la verdad es que le entiendo mejor viendolo con la sintaxis jeje)) bueno gracias por la ayuda

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
Fecha : TDate;
begin
Fecha := EncodeDate(StrToInt(EditAnyo.Text),StrToInt(EditMes.Text),StrToInt(EditDia.Text));
Caption := DateToStr(Fecha);
end;

A ver si esto te sirve .. jeje