Cambiar TimetoStr y viceversa

[gonza_619]

hola, bueno para guardar hora en un campo string, la hora de un dtpicker, podria ser algo como:

primero cambio el formato: dtpicker.format:=HH:mm

luego
var x:tdatetime
x:=dtpicker.time;
tablex.fieldbyname('hora'),asstring:=timetostr(x);

estaria en lo correcto?
otra pregunta, si quiero comparar la variable x para ver si es > o < a por ej:05:00
if x<05:00 then hace algo
me lo compara?

[BrunoBsso]

Empezado por gonza_619

hola, bueno para guardar hora en un campo string, la hora de un dtpicker, podria ser algo como:

primero cambio el formato: dtpicker.format:=HH:mm

luego
var x:tdatetime
x:=dtpicker.time;
tablex.fieldbyname('hora'),asstring:=timetostr(x);

estaria en lo correcto?
otra pregunta, si quiero comparar la variable x para ver si es > o < a por ej:05:00
if x<05:00 then hace algo
me lo compara?

Para guardar la hora en un string y mandarla a la BD:

Código Delphi [-]
var
  S: String;
begin
  S := FormatDateTime('HH:mm',dtpicker.Time);
  tablex.fieldbyname('hora'),asstring := S;
  //Mas simple: tablex.fieldbyname('hora'),asstring :=  FormatDateTime('HH:mm',dtpicker.Time);
end;

Para comparar:

Código Delphi [-]
var
  X, Comparacion: TTime;
begin
  X := Now;
  Comparacion := StrToTime('05:00:00');
  if (X < Comparacion) then //Si X es menor a 05:00:00
    ShowMessage(TimeToStr(X) + ' es menor a ' + TimeToStr(Comparacion))
  else if (X > Comparacion) then //O mayor
         ShowMessage(TimeToStr(X) + ' es mayor a ' + TimeToStr(Comparacion))
       else
         ShowMessage('Son iguales');
end;

[ecfisa]

Hola gonza_619.

Sobre tu primer consulta, yo lo haría en forma directa:

Código Delphi [-]
   TableX.FieldByName('HORA').AsString:= TimeToStr(DateTimePicker1.Time);

Sobre la segunda no te lo compara. Y hace algo: te dá error. No podés comparar 05:00, que supongo que es de tipo string, con una variable de tipo TDateTime.
Para compararla sería:

Código Delphi [-]
uses DateUtils;
var
  x: TDateTime;
begin
  x:= Now;
  if TimeOf(x) > StrToTime('05:00') then
  ...

Recordá que tenes mayor posibilidad de hallar respuestas si inicias un nuevo hilo con tu duda.
Además, facilitas a otros compañeros con el mismo problema a encontrar más rápidamente una solución.


Saludos.

[gonza_619]

bueno gracias ya me salio, pero una consulta mas, si utilizo un datetime picker, necesitaria que simpre me guarde los segundo en 00 ya que aparecen con 53 en mi caso, lo q hize fue cambiarle en 00 donde aparaece en la propiedad del dtpicker, con eso seria sificiente? o despues se vuelve a cambiar solo? grax

[ecfisa]

Hola.

Podrías hacer así:

Código Delphi [-]
uses DateUtils;
var
  aa,mm,dd,h,m,s,ms: Word;
begin
  DecodeDateTime(DateTimePicker1.DateTime, aa, mm, dd, h, m, s, ms);
  TableX.FieldByName('HORA').AsString:= IntToStr(h);
end;

De ese modo podés guardar lo que quieras del TDateTimePicker, desde el año hasta los milisegundos.

Saludos.

[ecfisa]

Hola de nuevo.

Se me olvidaba, si el campo de tu tabla es de tipo string y querés guardar con el formato '15:00' en lugar de '15', sólo debés agregar:

Código Delphi [-]
    TableX.FieldByName('HORA').AsString:= IntToStr(h) + ':00';

Si es de tipo Time, esto último no es necesario.

Saludos.