ET, prueba esto
Publicado por pricinpiante (72 intervenciones) el 10/12/2008 14:48:29
ET, hola como estas espero k bien Feliz navidad.-
tengo un pequeñito contratiempo con este codigo pruebalo a ver si me puedes ayudar
este codigo es para carcular el año y el mes de un empleado en una empresa, pero
me esta pasando lo siguiente, cuando el empleado tiene un año en la empresa
me sale k tiene un año y doce meses, cuando deberia tirar k tiene un año y cero meses.
pruebalo y pon esta fecha para k tenga mejor ilustracion: en maskedit fecha inicial
pon esta 10/12/2007 y en el maskedit fecha actual 10/12/2008, y veras k el resultado
sera un año y doce mese, cuando deberia salirme un año y cero meses, ayudame un poquito con esto
NOTA: COPIA ESTE CODIGO EN EL EVENTO ONCLIK DE UN BOTON
procedure TForm1.BitBtn1Click(Sender: TObject);
var
ano:integer;
mes: integer;
dias: integer;
x:integer;
begin
MaskEdit3.Text:= IntToStr(x);
ano:=YearsBetween(strtodate(MaskEdit1.Text),strtodate(MaskEdit2.Text));
mes:=(MonthsBetween(strtodate(MaskEdit1.Text),strtodate(MaskEdit2.Text)));
dias:=DaysBetween(strtodate(MaskEdit1.Text),strtodate(MaskEdit2.Text));
//Label1.Caption:=FloatToStr(dias/365);
//label1.Caption:= 'tiene '+IntToStr(ano)+' ano(s), '+FloatToStr(mes) +' mes(es) y '+FloatToStr(dias)+' dia(s)';
MaskEdit3.Text:= 'tiene '+IntToStr(ano)+' ano(s), '+FloatToStr(mes) +' mes(es) y '+FloatToStr(dias)+' dia(s)';
end;
end.
gracias de antemano ET
tengo un pequeñito contratiempo con este codigo pruebalo a ver si me puedes ayudar
este codigo es para carcular el año y el mes de un empleado en una empresa, pero
me esta pasando lo siguiente, cuando el empleado tiene un año en la empresa
me sale k tiene un año y doce meses, cuando deberia tirar k tiene un año y cero meses.
pruebalo y pon esta fecha para k tenga mejor ilustracion: en maskedit fecha inicial
pon esta 10/12/2007 y en el maskedit fecha actual 10/12/2008, y veras k el resultado
sera un año y doce mese, cuando deberia salirme un año y cero meses, ayudame un poquito con esto
NOTA: COPIA ESTE CODIGO EN EL EVENTO ONCLIK DE UN BOTON
procedure TForm1.BitBtn1Click(Sender: TObject);
var
ano:integer;
mes: integer;
dias: integer;
x:integer;
begin
MaskEdit3.Text:= IntToStr(x);
ano:=YearsBetween(strtodate(MaskEdit1.Text),strtodate(MaskEdit2.Text));
mes:=(MonthsBetween(strtodate(MaskEdit1.Text),strtodate(MaskEdit2.Text)));
dias:=DaysBetween(strtodate(MaskEdit1.Text),strtodate(MaskEdit2.Text));
//Label1.Caption:=FloatToStr(dias/365);
//label1.Caption:= 'tiene '+IntToStr(ano)+' ano(s), '+FloatToStr(mes) +' mes(es) y '+FloatToStr(dias)+' dia(s)';
MaskEdit3.Text:= 'tiene '+IntToStr(ano)+' ano(s), '+FloatToStr(mes) +' mes(es) y '+FloatToStr(dias)+' dia(s)';
end;
end.
gracias de antemano ET
Valora esta pregunta
0