Ver Mensaje Individual
  #2  
Antiguo 25-03-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Alfonso.

No conozco Java pero creo entender que tu código pasado a Delphi es algo como:
Código Delphi [-]
procedure DiasVividos1;
var
  NacStr: string;
  NacInt: Integer;
begin
  NacStr:= InputBox('Introduce tu edad','Edad','');
  if TryStrToInt(NacStr, NacInt) then
    ShowMessage(Format('Tu edad en días es: %d',[NacInt*365]));
end;
También debo decirte que esa forma de calcular la cantidad de días desde el nacimiento no es exacta en absoluto, mejor sería:
Código Delphi [-]
uses DateUtils;

procedure DiasVividos2;
var
  NacStr: string;
  FNac: TDateTime;
begin
   NacStr:= InputBox('Introduce la fecha de nacimiento','Fecha','');
   if TryStrToDate(NacStr, FNac) then
     ShowMessage(Format('Tu edad en días es: %d',[DaysBetween(Date, FNac)]));
end;

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita