Formato fecha servidor

[shoulder]

Hola es un servidor que corre con windows16 me han dicho, el formato de la Bios el setting, no se porque un dia dice 22/06 y otro dia 22/6 y ahi se produce el error.
Gracias.

[Casimiro Notevi]

Nadie responde porque no se entiende lo que preguntas.

[[gatosoft]]

Necesitariamos saber por ejemplo si tu programa se ejecuta en el servidor y en alguna parte del código estas trayendo la fecha con una sentencia Now(), por ejemplo... o si por el contrario, se ejecuta en un cliente y a través de alguna función recuperas la fecha del servidor... o si la fecha la consultas a través de un componente de base de datos que consulta dicha fecha.

Un pco de código ayudaría.

[shoulder]

Hola es un programa que corre como servicio en el servidor.
Funciona bien pero de repente da error y me doy cuenta si leo la fecha el formato en el servidor no se porque se cambio de 22/06 a 22/6.Para solucionar cuando hago un now pense que con el shortdateformat lo solucionaba pero no es asi. es decir mientras en el formato de fecha de windows se lea 22/06 funciona, pero si cambian el formato de windows el setting (no se porque a veces se cambia) ahi se corta.



Este es el codigo.

Código Delphi [-]


                        ShortDateFormat := 'dd/mm/yyyy';

                        zquery1.Active;
                        zquery1.close;
                        zquery1.SQL.Clear;
                        zquery1.sql.add ('select fecha from  feriado ');
                        zquery1.sql.add ('where fecha = :dia ');
                        zquery1.Params.ParamByName('dia').Value := now;
                        zquery1.active := true;

[[movorack]]

¿De que tipo es el campo feriado.fecha?
¿Haz probado enviando el parámetro día con AsDate o AsDateTime?

[[gatosoft]]

como dice movorack, podrias camniar la linea:

zquery1.Params.ParamByName('dia').Value := now;

por asDate o AsDatetime, y/o truncar la fecha para que no envie hora.

Código Delphi [-]
zquery1.Params.ParamByName('dia').AsDatetime:= Trunc(now);
zquery1.Params.ParamByName('dia').AsDate:= now;

La función no debería fallar asi. Si lo hace, lo que quiere decir que muy probablemente sea lo otro que comenta Movorack: ¿Que formato de fecha tienes en la tabla "feriado"?, si es texto, si vas a tener problemas si no coindicen los formatos.

Y por uñtimo seria bueno ver el mensaje de error, porque tu nos dices que hay un error pero el mensaje nos podria dar una pista.

saludo,

[shoulder]

Hola error es 6/2 not value date o ':' not integer, fui siguiendo estos dias el servicio y lo que no entiendo es durante varios dias funciona y de repente se frena con ese error como marque en el post superior o ahora en las lineas que dejo mas abajo. Pense sera un error de algo nuevo que lee y no es asi porque si abro el servicio de vuelta corre normalmente es como que se le fuera el seteo de la fecha o de la hora del now en algun momento de las pasadas del while. El servicio lo que hace mediante un while a las 10:50 actualiza datos en la BD
Este es el error que detecte tambien en ':' siempre es el now que no le gusta.....en algun momento de los dias trae otro valor a la variable string hora y por consiguiente se frena en la variable integer Impar.. o en el post anterior cuando paso el valor a zquery.

Código Delphi [-]
ShortDateFormat := 'dd/mm/yyyy';
hora := copy(datetimetostr(now()),11,6);

if copy(datetimetostr(now()),13,1) = ':' then
   hora := '0'+  copy(datetimetostr(now()),12,4);
impar := strtoint(copy(hora,6,1));