Pascal/Turbo Pascal - Ayuda Conversor de Milisegundos a Dias horas mutos in

   
Vista:

Ayuda Conversor de Milisegundos a Dias horas mutos in

Publicado por Corse (5 intervenciones) el 01/05/2013 15:18:28
Hola Necesito ayuda, neceisto crear en Pascal o en .bat un conversor que me traduzca de Milisegundos a Horas y Días. Serviriía esto?Me da error y no se como solucionarlo
===================================================================
Program Conversor
Begin
if(millis < '0');

long days = TimeUnit.MILLISECONDS.toDays(millis);
millis -= TimeUnit.DAYS.toMillis(days);
long hours = TimeUnit.MILLISECONDS.toHours(millis);
millis -= TimeUnit.HOURS.toMillis(hours);
long minutes = TimeUnit.MILLISECONDS.toMinutes(millis);
millis -= TimeUnit.MINUTES.toMillis(minutes);
long seconds = TimeUnit.MILLISECONDS.toSeconds(millis);

StringBuilder sb = new StringBuilder(64);
sb.append(days);
sb.append(' Days ');
sb.append(hours);
sb.append(' Hours ');
sb.append(minutes);
sb.append(" Minutes ");
sb.append(seconds);
sb.append(" Seconds");

return(sb.toString());
.end
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda Conversor de nanosegundos a Dias horas mutos in

Publicado por Corse (5 intervenciones) el 01/05/2013 15:37:13
Hola Necesito ayuda, neceisto crear en Pascal o en .bat un conversor que me traduzca de Milisegundos a Horas y Días.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda Conversor de nanosegundos a Dias horas mutos in

Publicado por ramon (2072 intervenciones) el 01/05/2013 18:14:53
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
{Mira si esto te sirve la entrada se hace en mili segundos}
 
program Milisegundos;
 uses
    crt;
  var
    seg, minut, hora, dia : real;
    mili : longint;
 
  procedure milihoradia(mi : longint);
  begin
      seg := (mi / 1000);
      minut  := seg / 60;
      hora := minut / 60;
      dia := hora / 24;
      writeln('  milisegundos = ',mi);
      writeln('  Segundos     = ',seg:0:2);
      writeln('  Minutos      = ',minut:0:2);
      writeln('  Horas        = ', hora:0:2);
      writeln('  Dias         = ',dia:0:2);
  end;
 
  begin
     clrscr;
     write('   Entre Mili Segundos : ');
      readln(mili);
     milihoradia(mili); {1 Hora 3600000 mili segundos}
     readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar