Cambiar TimetoStr y viceversa

[rgstuamigo]

Empezado por gcc32

...
¿Otra pregunta, como elimino los dos puntos de la hora para poder operar como si fuera un numero? Ej: 22:47:00 -> 224700
...

Pues sencillamente puedes reemplazar los dos puntos( por vacio('') haciendo algo así:

Código Delphi [-]
Label1.Caption:=StringReplace(TimeToStr(Now),':','',[rfReplaceAll]);

ahora si lo quieres como número entero podría ser así:

Código Delphi [-]
entero:=StrToInt(Trim(StringReplace(TimeToStr(Now),':','',[rfReplaceAll])));

.
Aunque en éste ultimo he agregado la funcion Trim para eliminar los espacios en blanco ya sea por delante o al final, ya que tal parece se obtiene un error si no se lo hace,ya que al hacer la transformacion y reeplazo se obtiene un espacio en blanco al final. .
Espero te sea de utilidad..
Saludos...

[BrunoBsso]

Eso que dijo rgstuamigo con StringReplace es justamente a lo que me refería yo con "Creo que existe un método para eso, pero yo no me lo acuerdo."

[cmm07]

Empezado por rgstuamigo

Pues sencillamente puedes reemplazar los dos puntos( por vacio('') haciendo algo así:
Código Delphi [-]Label1.Caption:=StringReplace(TimeToStr(Now),':','',[rfReplaceAll]);

ahora si lo quieres como número entero podría ser así:
Código Delphi [-]entero:=StrToInt(Trim(StringReplace(TimeToStr(Now),':','',[rfReplaceAll])));

.
Aunque en éste ultimo he agregado la funcion Trim para eliminar los espacios en blanco ya sea por delante o al final, ya que tal parece se obtiene un error si no se lo hace,ya que al hacer la transformacion y reeplazo se obtiene un espacio en blanco al final. .
Espero te sea de utilidad..
Saludos...

Hola ajjaja me adelantaste jaaja, , justo iba a responder eso mismo con el Stringreplace jajjaja.

saludos y q esten toodos OK!

[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.