Minuti in testo
Inviato: domenica 2 febbraio 2014, 2:34
Da questa: http://www.briandunning.com/cf/431
a questa:
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?
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 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?