Umrechnen von Minuten

Da ich krank bin und mir langweilig war hab ich dir mal was geschrieben .

Global $Zeit[3]
Global $Minuten
$Minuten =InputBox("Minuten unrechnen","Minuten eingeben")
$Zeit = Zeitinfo($Minuten)
msgbox(0,"Zeitinfo",$Minuten&" Minuten sind : "&$Zeit[0]&" Tage "&$Zeit[1]&" Stunden "&$Zeit[2]&" Minuten",5)

Func ZeitInfo($Anzahl)
Dim $TempZeit[3]
$TempZeit[2] = $Anzahl - Int($Anzahl / 60) * 60
$TempZeit[0] = Int(Int($Anzahl / 60) / 24)
$TempZeit[1] = Int($Anzahl / 60) - $TempZeit[0] * 24
Return $TempZeit
EndFunc