PDA

View Full Version : Funzione In Access


federchicco
08-08-2003, 01:13
Si puņ fare questa cosa?
Se da un numero di minuti es: 380 posso ricavare il corrispettivo in ore+ i minuti relativi ovvero ore 6,20.
Se io divido 380/60 mi da 6.33 che č giusto perche 0.33 *60 mi da 20.
Io vorrei un funzione o un algoritmo che mi dese ore 6.20.
grazie

Einstein
08-08-2003, 13:10
Function DaMinutiAOre(ByVal minuti As Integer) As String

Dim ore As Integer

ore = minuti / 60
f = CStr(ore) & "." & Format(minuti - (ore * 60), "00")

End Function

federchicco
08-08-2003, 17:08
Originariamente inviato da Einstein
Function DaMinutiAOre(ByVal minuti As Integer) As String

Dim ore As Integer

ore = minuti / 60
f = CStr(ore) & "." & Format(minuti - (ore * 60), "00")

End Function
GRAZIE MILLE