De un memo a un TDataTime

[[egostar]]

Empezado por Gabo

Mensaje borrado.

Vamos amigo gabo, porque borras tu mensaje.

Empezado por Caral

Hola
Pues claro, tienes razon Egostar.
Saludos

Verdad que si.

Empezado por poliburro

no se quedrá convertir esto en un clon del famoso "No responder"?

Ya me pusiste a pensar

Salud OS

[[Caral]]

Hola
La verdad y sin contradecirte por supuesto, no crees que esto se slucionaria con un datetimepicker, no se digo yo, el edit o el memo, no se.
Que piensas.?
Saludos

[[Gabo]]

Empezado por poliburro

?, jajaja y precisamente pensaba si era el único activo en esta tarde (México),

Empezado por poliburro

no se quedrá convertir esto en un clon del famoso "No responder"?

[]Es que leí tan rápido que le entendí que quería escribir en un archivo Word. No me di cuenta que se refería a la variables de tipo Word[/]

Creo que la noche me está afectando...

De todas formas, asi también se incrementa la cuota de mensajes, ¿no?

[[egostar]]

Empezado por Caral

Hola
La verdad y sin contradecirte por supuesto, no crees que esto se slucionaria con un datetimepicker, no se digo yo, el edit o el memo, no se.
Que piensas.?
Saludos

Pues habría que preguntarle a jorgegetafe, no crees

Salud OS

[[poliburro]]

Empezado por Caral

Hola
La verdad y sin contradecirte por supuesto, no crees que esto se slucionaria con un datetimepicker, no se digo yo, el edit o el memo, no se.
Que piensas.?
Saludos

Coincido al 100% contigo hermano caral.

[jorgegetafe]

¿Qué hago mal poniendo esto?

Código Delphi [-]
Label3.caption:= EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) );

Donde los tres parametros que le paso son el text de los edit respectivos.

Me dice que incompatible String con tdatatime

Thanks

[[poliburro]]

Código Delphi [-]
 
Label3.caption:= TimeTostr(EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) ));

[[egostar]]

Empezado por jorgegetafe

¿Qué hago mal poniendo esto?

Código Delphi [-]
Label3.caption:= EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), 
                                       (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) );

Donde los tres parametros que le paso son el text de los edit respectivos.

Me dice que incompatible String con tdatatime

Thanks

Necesitas pasar la variable Time a String así

Código Delphi [-]
Label3.caption:= TimetoStr(EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), 
                                     (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) ));

Sin embargo, para que quieres hacer ese casting, no seria mas facil así:

Código Delphi [-]
Label3.Caption := hora.Text+':'+minuto.Text+':'+segundo.text;

Salud OS

[jorgegetafe]

Genial arreglaste mi problema :-)

Una cosilla (creo que os deberia pagar por todo lo que me ayudais jaja), ya he conseguido que mediante tres edit introducidos por el usuario se muestre la hora que es en un label, que lo muestro con un ttimer, que pasa, que si pilla el ttimer con alguno de los edit en blanco de la hora, WUEEEEE!!! fallo del programa, alguien sabe como corregir eso?

Por cierto prefiero trabajar con variables de tiop tiempo porque necesito hacer restas y demas.

[[poliburro]]

Empezado por jorgegetafe

Genial arreglaste mi problema :-)

Una cosilla (creo que os deberia pagar por todo lo que me ayudais jaja),

Con que te conviertas a premiun nos daremos por bien servidos

[[egostar]]

Empezado por jorgegetafe

Genial arreglaste mi problema :-)

Una cosilla (creo que os deberia pagar por todo lo que me ayudais jaja), ya he conseguido que mediante tres edit introducidos por el usuario se muestre la hora que es en un label, que lo muestro con un ttimer, que pasa, que si pilla el ttimer con alguno de los edit en blanco de la hora, WUEEEEE!!! fallo del programa, alguien sabe como corregir eso?

Porque estas usando la conversion de los time, porque no tratas con esto

Código Delphi [-]
Label3.Caption := hora.Text+':'+minuto.Text+':'+segundo.text;

Solo que aquí veo otro problema, si capturan la hora puede ser que escriban datos erróneos, necesitas validar cada edit, por ejemplo que no coloquen letras solo números, que las horas sean entre 00 y 24, que los minutos y segundos sean entre 00 y 60.

Y como te dice mi amigo poliburro, sería un buen gesto de tu parte hacerte miembro premium.

Salud OS

Edito: Si prefieres trabajar con valores time, debes de hacer lo que te comento, validar los edit antes de hacer la conversion a time.

[jorgegetafe]

Empezado por egostar

Porque estas usando la conversion de los time, porque no tratas con esto


Código Delphi [-]
Label3.Caption := hora.Text+':'+minuto.Text+':'+segundo.text;
Edito: Si prefieres trabajar con valores time, debes de hacer lo que te comento, validar los edit antes de hacer la conversion a time.

La verdad es que prefiero trabajar con valores time, para que me sea más facil restar un tiempo de otro, sino de la otra forma es un lio padre.

Respecto a la validación, se hacerla de forma estatica, es decir, pillar un edit y ver si es correcto o no, pero no se hacerlo en "tiempo real", osea, que a la vez que el usuario vaya introduciendo por teclado ir viendo si esta bien (le dejo que escriba), o si lo ultimo que acaba de escribir esta mal y se lo borro.
¿Me he explicado?

[[egostar]]

Empezado por jorgegetafe

La verdad es que prefiero trabajar con valores time, para que me sea más facil restar un tiempo de otro, sino de la otra forma es un lio padre.

Respecto a la validación, se hacerla de forma estatica, es decir, pillar un edit y ver si es correcto o no, pero no se hacerlo en "tiempo real", osea, que a la vez que el usuario vaya introduciendo por teclado ir viendo si esta bien (le dejo que escriba), o si lo ultimo que acaba de escribir esta mal y se lo borro.
¿Me he explicado?

Se me ocurre que podrias usar el evento onChange y OnExit de cada edit.

Por ejemplo

en el evento OnChange, verificas que no escriba letras
en el evento OnExit, verificas si es un dato válido (00-24 para las horas y 00-60 para minutos y segundos) en caso de ser no válido regresas el foco a el edit.

Salud OS

[jorgegetafe]

Vale muchas gracias, mañana seguiré con ello, ya es un poco tarde que hay que madrugar, ya tendreis noticias cuando grite socorro jajaja


gracias por todo de verdad, chao!!!

[jorgegetafe]

Ya he retomado el programa jeje :-)

A ver si me ayudais con esto que por más que le doy vueltas no consigo ver el error, de tres edits consigo la hora introducida por el usuario y quiero calcular cuanto tiempo queda desde la hora actual, hasta la hora que ha introducido el usuario, lo hago de esta manera:

Código Delphi [-]
 
PROCEDURE TForm1.RestanteTimer(Sender: TObject); // Muestra la hora restante
VAR
a: ttime;
b: ttime;
c: ttime;
BEGIN
a:= now;
b:= EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)));
c:= b-a;
label3.caption:= timetostr (c);
//Label3.caption:= TimeTostr(EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) ));
END;

Pero siempre el tiempo restante que me sale es muchísimo mayor de lo que deberia, es decir, si el usuario me pone las 10:00 y actualmente son las 9:00 me sale que faltan 23 horas!!!! y además cada segundo va aumentando el tiempo restante en vez de disminuirse!!!! No tiene ni pies ni cabeza :-(

[jhonny]

La hora actual es mayor que la anterior, entonces deberias restar a-b y no b-a.

[jorgegetafe]

Ahí esta el problema, da igual si pongo a-b que b-a que el resultado del tiempo restante siempre es el mismo, lo acabo de comprobar otra vez por si acaso y nada.

A mi no se me ocurre porque falla :-(

[jhonny]

Tambien puedes hacer:

Código Delphi [-]
procedure Hora_restante; //Muestra la hora restante
var
  b: ttime;
begin
  b:= EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)),   (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)));
  label3.caption:= IntToStr(HoursBetween(Now, b));
end;

[jorgegetafe]

No estoy seguro de que esa funcion me sirva porque tan solo calcula la diferencia de horas, es decir, de 10:00 a 10:59 daria como resultado cero, y quiero que salgan horas, minutos y segundos...

gracias.

[[eduarcol]]

Empezado por jorgegetafe

No estoy seguro de que esa funcion me sirva porque tan solo calcula la diferencia de horas, es decir, de 10:00 a 10:59 daria como resultado cero, y quiero que salgan horas, minutos y segundos...

gracias.

necesita la use, DateUtils, a modo de dato en Delphi si te colocas sobre la palabra y le das al boton F1 en la ayuda te sale la uses que necesitas