Formato de fechas y DateTimePicker.

[Gydba]

Hola,

No es que sea hincha ni mucho menos pero mirá que lindo queda el código con las etiquetas DELPHI del foro:

Código Delphi [-]
function tform1.fecha_formato(fecha,formato:string):string;
var
   fecha_o,ch,d,m,a:string;
   aux,largo,i,u:integer;
   temp:string;
   vector:array[0..9] of string;
begin
   i:=0;
   u:=i;
   aux:=0;
   largo:=length(fecha);
      while (i <= 9) do begin
         ch:=copy(fecha,i+1,1);
            if (ch <> '/') then begin
               vector[u]:=ch;
               aux:=aux + 1;
               i:=i+1;
               u:=u+1;
            end else begin
               if aux = 2 then begin
                  i:=i+1;
                  u:=i-1;
                  aux:=0;
               end else begin
                  temp:=vector[u - 1];
                  vector[u - 1]:='0';
                  vector[u]:=temp;
                  aux:=0;
                  i:=i+1;
                  u:=u+1;
               end;
            end;
      end;
   fecha_o:=vector[0];
      for i:=0 to largo - 2 do begin
         fecha_o:=fecha_o + vector[i + 1];
      end;
   d:=copy(fecha_o,3,2);
   m:=copy(fecha_o,1,2);
   a:=copy(fecha_o,5,4);
      if formato = 'mm/dd/aa' then
         result:= d + '/' +m + '/' + a ;
      if formato = 'dd/mm/aa' then
   result:= m + '/' + d + '/' + a ;
end;

JoseBozzano, como veo que tenés pocos mensajes calculo que debés ser nuevo así que te doy la bienvenida. Por otro lado no sería malo que mirarás la guía de estilo del foro...
http://www.clubdelphi.com/foros/guiaestilo.php

Saludos!

[OSKR]

Señores!!! La solucion para el chamo solo consiste en establecer ShortDateFormat="mm/dd/yyyy"; antes de cualquier operacion a realizar con fechas con cualquier componente relacionado con las mismas.y ya!. Esta es una variable global en Builder, supomgo q su Delphi puede q tambièn lo tenga!

[marcoszorrilla]

Creo que no has captado bien el tema, una cosa es el formato de fecha que tengamos, corto, largo, mm/dd/yy .... y otra es que si utilizamos un TDateTimePicker éste almacena fecha y hora y si nos queremos llevar solamente la hora o la fecha, de que manera tenemos que interactuar con este control.

Un Saludo.

[roman]

Empezado por OSKR

Señores!!! La solucion para el chamo solo consiste en establecer ShortDateFormat="mm/dd/yyyy"; antes de cualquier operacion a realizar con fechas con cualquier componente relacionado con las mismas.y ya!. Esta es una variable global en Builder, supomgo q su Delphi puede q tambièn lo tenga!

¿A qué viene esta llamada de atención medio año después del último mensaje? A estas alturas quien formuló la pregunta seguramente ya está en otro proyecto. Además tu solución es tan válida como el uso de una función de formato con la ventaja de esta última de que sólo afectas al parámetro en sí y no al resto de la aplicación que puede estar desplegando fechas en otras partes. Pero más que nada, ya el compañero jachguate lo dijo en su día, lo mejor es usar parámetros por las razones que él mismo dió.

// Saludos

[OSKR]

Para marcoszorrilla:El DateTimePicker y creo q por lo general el resto de componentes se rigen bajo este formato (es decir, el q tenga la variable ShortDateFormat), si interactuamos con bases de datos usando estos componentes puede q no no obtengamos los resultados esperados, particularmente tenia este problema con Interbase y la solucion fue simple y llanamente alterar el formato de la variable, a partir de ahi en ella si se almacenaba lo q esperaba y para mostrar al usuario la retorno a su estado original y el DateTimePicker trabajaba de acuerdo a ella, en cuanto a la hora no veo en q parte esta escrito algo referente a ella (en aoiTo) solo veo q tiene o tenia un problema con el formato.

Para roman:
Me disculpo primeramente si en algun momento mi vocabulario los llego a provocar, no escribi en "tono" de regaño sino de "buena noticia", en cuanto al tiempo no considero q si han pasado años de haberse formulado la pregunta sea ese el motivo para no contestarla (tambien lo hago en algunos otros foros) puesto q hay usuarios q pueden explorar este foro y ver soluciones a sus inquietudes asi sean algo viejas (como yo!!! he encontrado soluciones aunque la pregunta ha sido mas vieja q Matusalèn), con respecto al uso de una funciòn no mencionè q fuera invàlida simplemente intentè dar una solucion mas corta (aunque reconozco q no es la mejor si uso fechas con hilos, no me topado con ese caso), ignorarè como siempre la fecha de la pregunta pero si mejorarè la manera de expresarme....................................... Saludos!

[marcoszorrilla]

Para marcoszorrilla:El DateTimePicker y creo q por lo general el resto de componentes se rigen bajo este formato (es decir, el q tenga la variable ShortDateFormat)

ShortDateFormat, solamente sirve para mostrar la fecha de una u otra manera, la fecha siempre tendrá 4 dígitos para el año, una solución para no depender del formato de la fecha es utilizar parámetros.

Un Saludo.

[egarc]

Para este problema, si sólo quieres grabar la fecha del DateTimePicker sólo pones:

Fecha:=DateTimepicker1.date;
Hora:=DateTimepicker1.time;

aca ya tienes la hora y la fecha del date time picker