[kapetang]

Κώστα δοκίμασε και την παρακάτω συνάρτηση, που είναι πιο σύντομη.

Public Function Expression(T As Variant) As Variant
    Dim O As Long, H As Long, m As Long, x As Long
    If Nz(T, "") <> "" Then
        x = CInt(T * 60)    'σύνολο λεπτών
        m = x Mod 60        'λεπτά
        H = Int(x / 60)
        O = Int(H / 8)      'Οκτάωρα
        H = H Mod 8         'ώρες
        Expression = O & " οκτάωρα, " & H & " ώρες, " & m & " λεπτά"
    End If
End Function