Cita:
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
dataIni:='01/'+FormatCurr('00',StrToInt(mes))+'/'+ano;
MesAux:=StrToInt(mes);
AnoAux:=StrToInt(ano);
MesAux:=MesAux+1;
if MesAux = 13 then
begin
MesAux:=1;
AnoAux:=AnoAux+1;
end;
dataFin:='01/'+IntToStr(MesAux)+'/'+IntToStr(AnoAux);
dataFin:=DateToStr(StrToDate(dataFin)-1);
End;