Sobre Max Calendar...

[[Lepe]]

En la ayuda de delphi pon DateUtils, te saldrán todas las rutinas que tiene ese .pas, estoy totalmente seguro que allí encontrarás una rutina que te diga el número de semana al que pertenece una fecha. Además de un sinfin de procedimientos que te ayudaran con fechas.

Siento no ser específico, es que no sé el nombre de la rutina; por otro lado, es muy conveniente que mires las rutinas que existen, seguro que con el tiempo necesitas alguna.

Saludos.

[thelibmx]

Hola como estan, bien veran ya tengo mi maxcalendar funcionando ahora solo falta una cosa, cuando dejo seleccionado un dia, 30 o 31 de un mes y me regreso a otro que no tiene 30 0 31 me manda un error, como puedo hacer para que ya no me aparesca ese error, yo he pensado que cada qe regrese un mes siempre me seleccione el dia primero de cada mes, como si le hubiera dado click ahi, y pienso q se solucionaria ese problema pero creo que seria muy chafa esa solucion y pues no se como hacerlo. alguien podria ayudarme un poco o decirme alguna otra forma?

ah por cierto el error q manda es por que mando a pintar las fechas desde una tabla, es decir el fondo de las fechas, entonces cuando hago ese procedimiento me manda un mensaje de error de invalid argument to date encode to pienso q es por eso, por que unos meses tienen mas dias que otros.. pero como podria solucionarlo

[[Lepe]]

Cuando cambies de mes, usa DaysInMonth (creo que se llama así) para saber si ese mes tiene 30 o 31 y no mandar a pintar la fecha de 31.

Saludos

[thelibmx]

mmm buen creo que eso que dices era una forma y yo creo que era la mejor, pero pues como soy principiante y no queria meterme en muchos problemas de codigo asi que lo solucione de una manera muy chafa y fue q cuando apareciera esa exepcion cacharla e ignorarla jaja y asi ya no me salia el mensaje de error y pues el calendario funcionaba bien... gracias,,,,espero cuando tenga un poco de mas tiempo, implementar la manera correcta para que quede bien un saludo

[thelibmx]

bueno aqui estoy de nuevo, espero que me ayuden con esto, ya llevo atorado un rato y creo que mi cerebro se apago de sobrecalentamiento, ya no me llegan las ideas....
Pues veran

en tmonhcalendar si activan o ponen visibles que se muestren las semanas es decir semana 1 a la 52 cada que cambio de mes pues me aparecen a un lado el numero de semana y se va cambiando conforme voy dando click hacia adelante o atras y eso esta muy bien. ahora mi problema es que
tengo el Maxcalendar y tiene la misma opcion de mostrar las semanas
y quiero hacer lo mismo pero sucede que cuando lo activo y lo ejecuto se quedan las semanas estaticas, en todos los meses me muestra la semana 13 a la 18, y pues la cuestion de los dias si estan bien esos si cambian bien, las semaas no, que es lo que no he programado o que opcion no he habilitado se que se trata de solo alguna tonteria ,pro alguien podria decirme o darme una sugerencia? quedaria muy agradecido...
gracias...

[[Lepe]]

Es cierto. Deberías enviar un correo al creador del componente para que arregle ese bug.

Saludos

[eldiegofg]

Hola, estuve leyendo este hilo y me fue de gran ayuda debido a que estaba queriendo usar el mismo componente. Pero me encontre con un problema, yo quiero resaltar todos los dias que en una base de datos se encuentran bajo el campo FECHA. El problema es que no me marca ninguno de los dias. Aqui el codigo.

var dia:tdatetime; strdia,strd,strm,stra:string; d,m,a:byte;
begin
  table1.Open;
  table1.First;
  while table1.Eof=false do
  begin
    dia:=table1.FieldByName('fecha').AsDateTime;
    strdia:=datetostr(dia);
    strd:=midstr(strdia,1,2);
    strm:=midstr(strdia,4,2);
    stra:=midstr(strdia,7,4);
    d:=strtoint(strd);
    m:=strtoint(strm);
    a:=strtoint(stra);
    if ADate = encodeDate(a, m, d) then
      Acolor := clRed;
    table1.Next;
  end;
end;

Tambien probe de esta forma:

begin
  table1.Open;
  table1.First;
  setlength(ar,4);
  i:=0;
  while table1.Eof=false do
  begin
    dia:=table1.FieldByName('fecha').AsDateTime;
    strdia:=datetostr(dia);
    strd:=midstr(strdia,1,2);
    strm:=midstr(strdia,4,2);
    stra:=midstr(strdia,7,4);
    d:=strtoint(strd);
    m:=strtoint(strm);
    a:=strtoint(stra);
    ar[i]:=encodedate(a,m,d);
    i:=i+1;
    table1.Next;
  end;
  for i:=0 to 2 do
  begin
    if ADate = ar[i] then
      acolor:=clred;
  end;
end;

Lo raro es que haciendo una simple comparacion del estilo siguiente, sí funciona y marca el dia

if ADate = encodeDate(2007, 08, 20) then
begin
   Acolor := clAqua; 
end;

Espero no molestarlos con mi consulta y sepan disculpar mi ignorancia pero soy muy nuevo en esto. Agradezco de antemano su tiempo, saludos.