Crear un calendario y que los eventos esten almacenados en access.

[[José Luis Garcí]]

Empezado por feliz-58

Saludos.

disculpa por todo, lo que pasa es que mi conocimiento teórico es muy limitado, ni te imaginas como conoci este lenguaje, pero no es el caso.
Entendí lo de las variables.

lo de 'EndofaMonth' era una prueba que estaba haciendo, de alguien que dijo algo al respecto, pero se me olvido borrarlo.

'EndOfTheMonth' y 'StartOfTheMonth' sobre esto, si investigue, y asi como tu, no encontre una forma directa de utilizar el procedimiento, y por lo tanto abria que convertir.

El error

Código Delphi [-]
Quote:
[Error] Unit1.pas(170): '.' expected but ';' found

esta resuelto, solo queria que te fijaras en el asunto de Endofthemonth y Startofthemonth



el asunto es que tengo mucha prisa y casi no tengo tiempo para sentarme por el trabajo, disculpa si te llevo a un ritmo incomodo, pero un cliente me tiene a jugo para que termine esto, me llama mucho, no te imaginas.

pero nadie tiene la culpa.

Saludos y gracias por todo.

No hombre no hay por que pedir disculpas, simplemente que intentes por tu propio bien estudiar un poco, en cuanto al tema de 'EndOfTheMonth' y 'StartOfTheMonth', te puse un procedure que te permite sustituir estas llamadas, simplemente lee con calma mi post anterior y aplica este procedure, recuerda que convertir una variable String en una Tdate lo logras con StrToDate(var:String)

Código Delphi [-]
Procedure PrmeiroEUltimoDiaDoMes(mes,ano:String; var dataIni,dataFin:string);
var
 MesAux,AnoAux:Integer;
Begin

  {Procedimento recebe um mes e um ano como parametro.
  E retorna nas variaveis DataIni e DataFin o primeiro e
  o ultimo dia daquele mes. Bem simples e eficiente}

  //primeiro dia
  dataIni:='01/'+FormatCurr('00',StrToInt(mes))+'/'+ano;

  //ultimo dia
  MesAux:=StrToInt(mes);
  AnoAux:=StrToInt(ano);

  //se ja estivesse em dezembro
  MesAux:=MesAux+1;
  if MesAux = 13 then
  begin
    MesAux:=1;
    AnoAux:=AnoAux+1;
  end;//if MesAux = 13 then

  dataFin:='01/'+IntToStr(MesAux)+'/'+IntToStr(AnoAux);
  dataFin:=DateToStr(StrToDate(dataFin)-1);

End;//procedure