Avatar billede meyer Nybegynder
02. marts 2003 - 13:51 Der er 14 kommentarer og
4 løsninger

Trække 2 tidspunkter fra hinanden

Hvordan trækker jeg to tidspunkter fra hinanden??

F.eks. 13:00:00 - 12:49:00 = 11 min???
Avatar billede kichian Nybegynder
02. marts 2003 - 13:55 #1
Avatar billede korup Nybegynder
02. marts 2003 - 13:56 #3
Du kan bruge en funktion det hedder DateDiff()
Kan ikke lige huske parameterne, men finder dem lige..

/korup
Avatar billede korup Nybegynder
02. marts 2003 - 13:59 #4
Ja, det er jo ikke nødventig, der er jo nogle hurtige hovede her inde :)

/korup
Avatar billede meyer Nybegynder
02. marts 2003 - 14:04 #5
Det giver -11

Kan man ikke få det ud formateret f. eks 00:11 ??
Avatar billede somaliomar Praktikant
02. marts 2003 - 14:31 #6
Prøv med

  Tid1 = #13:00:00#
  Tid2 = #12:49:00#
  "00:" & Right("0" & DateDiff("n", Tid1, Tid2), 2)
Avatar billede meyer Nybegynder
02. marts 2003 - 14:35 #7
Det skal jo være den reelle tid der er gået i sek.
Avatar billede kichian Nybegynder
02. marts 2003 - 14:35 #8
Husk at parametrene i Datediff er startdato, slutdato. Dvs. den mindste dato står først. Dette skulle meget gerne give 11 og ikke -11.

Mht. formateret resultat, så bliver du selv nød til at skrive denne funktion
Avatar billede somaliomar Praktikant
02. marts 2003 - 14:36 #9
meyer > Vil du have det i sekunder?
Avatar billede meyer Nybegynder
02. marts 2003 - 14:37 #10
Ja vil have det i min og sek.
Avatar billede somaliomar Praktikant
02. marts 2003 - 14:38 #11
Ikke noget med timer? Sådan her:

  MM:SS
Avatar billede meyer Nybegynder
02. marts 2003 - 14:40 #12
jo kan jeg få timerne med er det ok - den skal bare skrive det tidsrum man har været om en bestemt ting på sitet.
Avatar billede somaliomar Praktikant
02. marts 2003 - 14:47 #13
Prøv med

    Dim Hour, Min, Sec
   
    Tid1 = #12:49:02#
    Tid2 = #13:00:00#
   
    Sec = DateDiff("s", Tid1, Tid2)
    Min = Sec \ 60
    Sec = Sec Mod 60
    Hour = Min \ 60
   
    Sec = Right("0" & Sec, 2)
    Min = Right("0" & Min, 2)
    Hour = Right("0" & Hour, 2)
   
    Test = Hour & ":" & Min & ":" & Sec
Avatar billede somaliomar Praktikant
02. marts 2003 - 14:48 #14
Den nederste linje kan udskrives direkte. Sådan her

  Response.Write Hour & ":" & Min & ":" & Sec
Avatar billede somaliomar Praktikant
02. marts 2003 - 14:51 #15
Ups... Der er en lille bug i koden. Prøv det her i stedet

    Dim Hour, Min, Sec
   
    Sec = DateDiff("s", Tid1, Tid2)
    Min = Sec \ 60
    Sec = Sec Mod 60
    Hour = Min \ 60
    Min = Min Mod 60
   
    Sec = Right("0" & Sec, 2)
    Min = Right("0" & Min, 2)
    Hour = Right("0" & Hour, 2)
   
    Response.Write Hour & ":" & Min & ":" & Sec
Avatar billede meyer Nybegynder
02. marts 2003 - 14:55 #16
Perfekt - takker :-)
Avatar billede somaliomar Praktikant
02. marts 2003 - 14:56 #17
Tak for points :)
Avatar billede korup Nybegynder
03. marts 2003 - 09:58 #18
Tak for points :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester