Pagina 1 di 1

Minuti in testo

Inviato: domenica 2 febbraio 2014, 2:34
da haring
Da questa: http://www.briandunning.com/cf/431

a questa:

Codice: Seleziona tutto

Dichiara(
[
   x = Arrotonda(valore_minuti;0);
   giorni = Casi( x < 60 ; 0 ; x >=1440; Intero(x/1440));
   ore = Casi( x < 60 ; 0 ; x >= 60 ; Intero(x/60) - (giorni*24) );
   min = Casi( x < 60; x; x >= 60; x - (giorni*24*60) - (ore*60))
];
Casi( giorni = 1; giorni & " giorno, " ; giorni > 1; giorni & " giorni, ")
&
Casi( ore = 1; ore & " ora" ; ore > 1; ore & " ore")
&
Casi( ore = 0 and min = 0; "")
&
Casi( x=1 ; x & " minuto" ; x <= 60 ; x & " minuti" ; min = 1; " e " & min & " minuto" ; min > 1; " e " & min & " minuti")
)
Con valore 60 resituisce: 1 ora.
Con valore 2 restituisce: 2 minuti.
Con valore 72 restituisce: 1 ora e 12 minuti.
Con valore 1605 restituisce: 1 giorno, 2 ore e 45 minuti.


Come potrebbe essere migliorata?

Re: Minuti in testo

Inviato: domenica 2 febbraio 2014, 13:35
da stregatto
dipende che intendi per "migliorata". cosa ti serve?

.g.

Re: Minuti in testo

Inviato: domenica 2 febbraio 2014, 14:30
da haring
Definiamolo esercizio, spero non disdicevole, di stile.
Cerco di capire: io lo studente che cerca di applicarsi, voi i docenti che cercano di correggere.

Re: Minuti in testo

Inviato: domenica 2 febbraio 2014, 16:32
da stregatto
si, ma continuo a non capire. vuoi avere lo stessoi risultato con meno codice oppure un risultato diverso?

.g.