Gracias ecfisa.... eran esas las units que faltaban...
ahora estoy con otro problema...
Te cuento...
en un Timer, le asigno la Fecha y Hora del Sistema a una variable de Tipo String de la siguiente forma
Código Delphi
[-]
vFecha:=TimeToStr(Now);
vHora:=DateToStr(Now);
Si quiero juntar eso, lo hago con el Concat y me resulta
Código Delphi
[-]ShowMessage(Concat(vFecha,' ',vHora);
por ej. me entrega :
20/01/2011 11:19:23
La funcion la tuve que modificar por que el formato que entregaba era YYYYMMDD
Asi que la deje así
Código Delphi
[-]
function TextoAFechayHora(S:String):TDateTime;
var
aa,mm,dd,hh,mn,ss,ms:Word;
begin
Try
dd:=StrToInt(Copy(s,1,2));
mm:=StrToInt(Copy(s,4,2));
aa:=StrToInt(copy(s,7,4));
hh:=StrToInt(Copy(s,12,2));
mn:=StrToInt(Copy(s,15,2));
ss:=StrToInt(Copy(s,18,2));
ms:=00;
Result:=EncodeDateTime(dd,mm,aa,hh,mn,ss,ms);
Except
ShowMessage('formato de datos erroneo');
end
end;
Quiero insertar el dato en la Tabla, para lo cual lo asigno así
Código Delphi
[-]
Datos.AQ_Edit.Parameters[3].Value := TextoAFechayHora(Concat(vFecha,' ',vHora));
Ojo.. que cuando inserto desde un DateTimePicker me funciona bien.. pero quiero eliminar este componente del formulario...
Código Delphi
[-]
Datos.AQ_Edit.Parameters[3].Value := sFec.DateTime;
pero en tiempo de ejecución me aparece un error
"20/1/2011 11:23:55,0" is not a valid date and time y muestra que el formato no es valido
mi consulta es... por que en el mesaje el concat me muestra el mes con 01 pero el mensaje del error me dice que el mes solo es 1..
bueno, y por ende como puedo solucionar esto..
Salu2