FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Calculo de Años
Necesito calcular los anos transcurridos entre el año de compra de una producto el cual lo introdusco a una tabla mediante un dbedit, y la fecha actual que posee la computador.
Ejemplo: AÑo de compra: 1999 Año actual : 2004 Resultado: 5 Precisaria que si se puede me pasen todo el codigo completo del calculo. Desde ya muchas gracias. Aclaración: trabajo en Delphi 5 entreprice y con tablas paradox 7
__________________
Cita:
|
#2
|
|||
|
|||
Me suena que hay una función, pero como no tengo el Delphi delante....
Código:
var D, M, AIni, AFin : Word; begin DecodeDate(AFin, M, D, Date); DecodeDate(AIni, M, D, TablaCampoFecha.AsDateTime); ShowMessage('Diferencia de años : ' + IntToStr(AFin - AIni)); end; Cita:
Última edición por __cadetill fecha: 20-02-2004 a las 14:30:01. |
#3
|
|||
|
|||
Calculo de anio
CADETILL UTILICE EL SIGUIENTE CODIGO :
procedure TModeloDatos.TblMuebleCalcFields(DataSet: TDataSet); Var D, M, AIni, AFin : Word; Begin DecodeDate(AFin, M, D, Date); AIni:=ModeloDatos.TblMueble.FieldValues['Añocompra']; ShowMessage('Diferencia de años : ' + IntToStr(AFin - AIni)); end; PARA CALCULAR LOS ANOS TRANSCURRIDOS ENTRE EL AÑO DE COMPRA DE UN PRODUCTO Y EL ACTUAL Y ME DA EL SIGUIENTE ERROR: [Error] ModDat.pas(104): Types of actual and formal var parameters must be identical [Fatal Error] CStock.dpr(15): Could not compile used unit 'ModDat.pas' Y NO SE COMO ARREGLARLO Saludos, jrcosta75
__________________
Cita:
|
#4
|
||||
|
||||
Código:
procedure TForm1.Button1Click(Sender: TObject); function Edad(FechaNacimiento:string):integer; var iTemp,iTemp2,Nada:word; Fecha:TDate; begin Fecha:=StrToDate(FechaNacimiento); DecodeDate(Date,itemp,Nada,Nada); DecodeDate(Fecha,itemp2,Nada,Nada); if FormatDateTime('mmdd',Date) < FormatDateTime('mmdd',Fecha) then Result:=iTemp-iTemp2-1 else Result:=iTemp-iTemp2; end; begin Label1.Caption:=intToStr(Edad('07/09/1969')); end;
__________________
:) |
#5
|
|||
|
|||
se supone que
Código:
ModeloDatos.TblMueble.FieldValues['Añocompra'] Pues entonces has de hacer lo que te proponia en el mensaje anterior Código:
var D, M, AIni, AFin : Word; begin DecodeDate(AFin, M, D, Date); DecodeDate(AIni, M, D, ModeloDatos.TblMueble.FieldValues['Añocompra']); ShowMessage('Diferencia de años : ' + IntToStr(AFin - AIni)); end; |
#6
|
|||
|
|||
pregunta
que ocurre si compro algo el 31/12/03 y lo vendo el 01/01/04. ?
que resultado debe dar? deberia dar 0 años. no? creo que no habria querestar solo los años, sino tener en cuenta toda la fecha.
__________________
frenadol |
#7
|
|||
|
|||
Ayudaaaaa.
Probe de todas formas para calcular los anos transcurridos y no hay forma me da error
PUSE: procedure TForm10.BitBtn1Click(Sender: TObject); Var d,m,Aini,Afin:Word; begin Decodedate(Date,Afin,m,d,); Decodedate(ModeloDatos.TblMueble.FieldValues['Fechcomp'],Aini,m,d,); ShowMessage('Diferencia de años:'+IntToStr(Afin-Aini)); end; Y ME DIO EL SIGUIENTE ERROR [Error] Unit10.pas(105): Too many actual parameters [Error] Unit10.pas(106): Too many actual parameters [Fatal Error] CStock.dpr(15): Could not compile used unit 'Unit10.pas' TAMBIEN PUSE: procedure TForm10.BitBtn1Click(Sender: TObject); Var d,m,Aini,Afin:Word; begin Decodedate(Afin,m,d,Date); Decodedate(Aini,m,d,ModeloDatos.TblMueble.FieldValues['Fechcomp']); ShowMessage('Diferencia de años:'+IntToStr(Afin-Aini)); end; Y ME DIO EL SIGUIENTE ERROR [Error] Unit10.pas(105): Types of actual and formal var parameters must be identical [Error] Unit10.pas(106): Types of actual and formal var parameters must be identical [Fatal Error] CStock.dpr(15): Could not compile used unit 'Unit10.pas' NO SE COMO HACERLO NECESITO AYUDA GRACIAS.
__________________
Cita:
|
#8
|
||||
|
||||
Con solo darle a F1 verás que la sintaxis correcta es la primera. Para que te funcione, prueba a no poner paréntesis de más.
Código:
procedure TForm10.BitBtn1Click(Sender: TObject); Var d,m,Aini,Afin:Word; begin Decodedate(Date,Afin,m,d); Decodedate(ModeloDatos.TblMueble.FieldValues['Fechcomp'],Aini,m,d); ShowMessage('Diferencia de años:'+IntToStr(Afin-Aini)); end;
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#9
|
||||
|
||||
Código:
procedure TForm10.BitBtn1Click(Sender: TObject); Var d,m,Aini,Afin:Word; begin Decodedate(Date,Afin,m,d,);//La coma sobra Decodedate(ModeloDatos.TblMueble.FieldValues['Fechcomp'],Aini,m,d,); ShowMessage('Diferencia de años:'+IntToStr(Afin-Aini)); end;
__________________
Guía de Estilo de los Foros Cita:
Última edición por marcoszorrilla fecha: 24-02-2004 a las 22:16:59. |
#10
|
||||
|
||||
donde dije paréntesis de más, digo diego, digo quise decir comas de más.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#11
|
||||
|
||||
Escribimos casi al mismo tiempo Marc, cuando he enviado mi mensaje aún no estaba el tuyo.
Donde dije Diego no digo nada. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|