Minutter til dage/timer/minutter

<%
Function udregnTid(tid)

    'paramteren tid er minutter fra anden funktion
    'vb funktionen MOD returnerer resten efter en division med et givet tal
   
    Dim dage
    Dim timer
    Dim minutter
 
    ' sørg for at tid er et langt heltal
    tid = CLng(tid)
   
    dage = 0
    timer = 0
    minutter = 0

    'antallet af minutter udover antallet af timer
    'findes ved MODULUS 60
    minutter = tid MOD 60   

    'antallet af timer udover antallet af dage
    'findes ved MODULUS 24
    'efter at vi har omskrevet resterende minutter til hele timer
    timer = ((tid-minutter)/60) MOD 24

    'antallet af hele dage
    'findes ved at vi fratrækker minutter og timer fra den oprindelige tid
    'hvorefter vi dividerer med 60(til timer) og derefter med 24(til dage)
    dage = (((tid-minutter-(timer*60))/60)/24)
   
    udregnTid = dage & " dage " & timer & " timer " & minutter & " minutter."
   
End Function
%>

der var lige en lille bøf i den sidste udregning skulle være timer/60 istedet for timer*60

<%
Function udregnTid(tid)

    'paramteren tid er minutter fra anden funktion
    'vb funktionen MOD returnerer resten efter en division med et givet tal
   
    Dim dage
    Dim timer
    Dim minutter
 
    ' sørg for at tid er et langt heltal
    tid = CLng(tid)
   
    dage = 0
    timer = 0
    minutter = 0

    'antallet af minutter udover antallet af timer
    'findes ved MODULUS 60
    minutter = tid MOD 60   

    'antallet af timer udover antallet af dage
    'findes ved MODULUS 24
    'efter at vi har omskrevet resterende minutter til hele timer
    timer = ((tid-minutter)/60) MOD 24

    'antallet af hele dage
    'findes ved at vi fratrækker minutter og timer fra den oprindelige tid
    'hvorefter vi dividerer med 60(til timer) og derefter med 24(til dage)
    dage = (((tid-minutter-(timer/60))/60)/24)
   
    udregnTid = dage & " dage " & timer & " timer " & minutter & " minutter."
   
End Function
%>

Tror nu den første du har lavet passer meget godt for den anden giver dage som fx 2,1666666..... etc og det gør den anden ikke. Men man kan os rette den anden ved at lave den her "dage = (((tid-minutter-(timer/60))/60)/24)" om til "dage = (((tid-minutter-(timer/60))/60)\24)"

Hvad synes du jeg skal bruge ?

dage = (((tid-minutter-(timer/60))/60)\24)
eller
dage = (((tid-minutter-(timer*60))/60)/24)

den sidste formel drillede mig lidt

<%
Function udregnTid(tid)

    'paramteren tid er minutter fra anden funktion
    'vb funktionen MOD returnerer resten efter en division med et givet tal
   
    Dim dage
    Dim timer
    Dim minutter
 
    ' sørg for at tid er et langt heltal
    tid = CLng(tid)
   
    dage = 0
    timer = 0
    minutter = 0

    'antallet af minutter udover antallet af timer
    'findes ved MODULUS 60
    minutter = tid MOD 60   

    'antallet af timer udover antallet af dage
    'findes ved MODULUS 24
    'efter at vi har omskrevet resterende minutter til hele timer
    timer = ((tid-minutter)/60) MOD 24

    'antallet af hele dage
    'efter at vi har omskrevet resterende timer til dage
    dage = (((tid-minutter)/60) - (((tid-minutter)/60) MOD 24)) / 24 
       
    udregnTid = dage & " dage " & timer & " timer " & minutter & " minutter."
   
End Function
%>

Nice nok. det virker helt som det skal :)

Ville os lige sige tak igen for det andet du har lavet for mig ;)