Cambiar TimetoStr y viceversa

[gcc32]

Hola necesito que teniendo la hora actual con la funcion now; me la transforme a una variable de tipo string o integer, tengo entendido que se hace

var a:TTIME;

begin
a:=now;
label1:=TimetoStr(a);

end;

No me deja compilar, ¿alguien sabe por que? ¿Se necesita algo en uses para realizar este tipo de cambio de variable??

Muchas Gracias

[marcoszorrilla]

Now devuelve la fecha y la hora, no la hora solamente, por lo tanto tienes que declarar una variable del tipo DateTime.

Var
x:TdateTime;

Pero para seguir con lo que tu quieres más fácil sería:

Código Delphi [-]
a:=Time;
        label1:=TimetoStr(a);

Un Saludo.

[gcc32]

Me sigue saliendo el mismo error cuando ejecuto;

Código Delphi [-]
var s:string;
    hora2:Ttime;

begin
    hora2:=Time;
    s:=TimeToStr(time);   <<---- Se me situa el cursor (|Time)
end;

[Error] Principal.pas(136): Missing operator or semicolon

Me da igual como se haga, la idea es cambiar de formato hora a string o integer para poder operar con horas...

Gracias de todas maneras

[BrunoBsso]

Es que te estás olvidando de poner el dato en la propiedad Caption del label.

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

Saludos!

[gcc32]

Ya lo he comprobado, habia puesto el caption, esta todo correcto estoy desesperado...

[marcoszorrilla]

¿Tienes declarada la variable S como String?

Un Saludo.

[marcoszorrilla]

Pues la asignación directa te tiene que funcionar acabo de probarlo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Now);
end;

Un Saludo.

[marcoszorrilla]

He probado tu código y funciona perfectamente.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
hora2:Ttime;

begin
    hora2:=Time;
    s:=TimeToStr(time); //  <<---- Se me situa el cursor (|Time)
    ShowMessage(s);
end;

Un Saludo.

[gcc32]

Efectivamente, eso funciona pero en una aplicación nueva, no se porque de todas maneras, seguiré investigando, gracias.



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


Muchisimas gracias

[BrunoBsso]

Creo que existe un método para eso, pero yo no me lo acuerdo.
Podrías hacerlo vos mismo

Código Delphi [-]
function TimeToInt(T:TTime):Integer;
var
  S1,S2:String;
  I:Integer;
begin
  S1:=TimeToStr(T);
  S2:='';
  I:=1;
  while (I<=Length(S1)) do begin
    if (S1[i]<>':') then
      S2:=S2+S1[i];
    Inc(I);
  end;
  Result:=StrToInt(S2);
end;

Saludos.

[BrunoBsso]

Haciendo un repaso:
Para cargar la hora actual en un TLabel lo único que necesitás es
Label1.Caption:=TimeToStr(Now)
No necesitás declarar ninguna variable extra (a menos que la necesites para almacenarlo).
La función Now devuelve solamente la hora actual, no devuelve fecha.

[gcc32]

Muchas Gracias, ya lo he conseguidoo!

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