Dias y meses

[lucasarts_18]

Hola:

Podrías intentar capturando la fecha con el componente TDateTimePicker de la ficha Win32, y si te fijas en las propiedades del objeto, tiene una propiedad dateFormat teniendo éste dos modos:

1- Formato corto
2- Formato largo.

Éste último podría servirte ya que toma el formato largo de fecha que se encuentra configurado en el panel de control, o sea día,mes,año.

Creo que por ahí podrías ver .

Suerte.

Saludos.
Aarón.

[romansiux]

Lucasarts 18, ya estuve viendo el TDateTimePicker, el Formato largo, me pone de la siguiente manera (Sabado, 11 de Junio de 2005), esto esta muy bueno, pero quise guardarlo en mi Base de Datos y no se guarda asi, de la forma que me guarda es de la siguiente manera (11/06/2005 21:03:35), pero yo quiero que me guarde así (sabado, 11 de junio de 2005) tal y como esta en el TDateTimePicker.

Como le puedo hacer?

De la forma que lo guardo es de la siguiente manera:
Este es el código que tengo en el Botón Guardar
MyTable1.Insert;
MyTable1.FieldByName('dia').AsDateTime:=DateTimePicker1.DateTime;
MyTable1.Post;
MyTable1.Close;
MyTable1.Open;

Saludos

Y gracias

[lucasarts_18]

Hola:

Te lo guarda así por qué esa es la forma o el tipo de dato especifícado en la BD, no conozco otra forma de hacerlo, así como lo propones tú, ojalá alguien sepa, así aprovecho de aprender yo también .
Otra solución sería ( no se sí será lo mejor) es guardarlo en un campo varchar en la BD así podrás guardarlo de la manera que dices,no se me ocurre otra forma .

Saludos.
Aarón.

[[Ohcan]]

Prueba a guardar en un campo aparte el día de la semana.
Para sacarlo puedes usar al go como esto:

Código Delphi [-]
function TForm1.DiaDeLaSemana(Fecha: TDate; Completo:Boolean=False): string;
var
  DiasSemana:array[1..7] of string;
begin
  //Calculamos la letra del día de la semana
  if Completo then
    begin
      DiasSemana[1] := 'DOMINGO'; DiasSemana[2] := 'LUNES';
      DiasSemana[3] := 'MARTES'; DiasSemana[4] := 'MIERCOLES';
      DiasSemana[5] := 'JUEVES'; DiasSemana[6] := 'VIERNES';
      DiasSemana[7] := 'SABADO';
    end
  else
    begin
      DiasSemana[1] := 'D'; DiasSemana[2] := 'L'; DiasSemana[3] := 'M';
      DiasSemana[4] := 'X'; DiasSemana[5] := 'J'; DiasSemana[6] := 'V';
      DiasSemana[7] := 'S';
    end;
  Result := DiasSemana[DayOfWeek(Fecha)];
end;

[romansiux]

Ya pude capturar la fecha como yo queria ....Gracias a todos por su ayuda

Ahora lo que me falta es hacer la consulta en SQL