Søg
Avatar billede [tpl]foxy Nybegynder
19. november 2002 - 23:50 Der er 10 kommentarer og
1 løsning

ClockString

Hej
jeg har dette lille script som jeg gerne vil have tilføjet til, så man også kan se uge og ugedag. Nogen der kan hjælpe mig med dette ?
koden kan ses her:

    Sub Window_Onload()
        window.setTimeout "UpdateTime",100
    End Sub
   
    Sub UpdateTime()
        Dim ClockString
        ClockString = ClockString & " Klok: " & Time & " - Dato: " & Date
        nowtime.innerText = ClockString
        window.setTimeout "UpdateTime",100
    End Sub

På forhånd mange tak.
Avatar billede medions Nybegynder
19. november 2002 - 23:53 #1
Sub Window_Onload()
        window.setTimeout "UpdateTime",100
    End Sub
   
    Sub UpdateTime()
        Dim ClockString
        ClockString = ClockString & " Klok: " & Time & " - Dato: " & Date & "Week: " & Week(Date) & "WeekDay: " & WeekDay(Date)
        nowtime.innerText = ClockString
        window.setTimeout "UpdateTime",100
    End Sub

//>Rune
Avatar billede medions Nybegynder
19. november 2002 - 23:54 #2
Eller hvis du vil ha' navnet på ugedagen så er det

    Sub Window_Onload()
        window.setTimeout "UpdateTime",100
    End Sub
   
    Sub UpdateTime()
        Dim ClockString
        ClockString = ClockString & " Klok: " & Time & " - Dato: " & Date & "Week: " & Week(Date) & "WeekDay: " & WeekDayName(Date)
        nowtime.innerText = ClockString
        window.setTimeout "UpdateTime",100
    End Sub

//>Rune
Avatar billede [tpl]foxy Nybegynder
19. november 2002 - 23:58 #3
WeekDay virker.. men de andre 2 (Week og WeekDayName) kan jeg ikke få til at virke ?
Avatar billede medions Nybegynder
20. november 2002 - 00:02 #4
DOH sorry... Her får du ugenummeret:

WeekNumber = DatePart("ww", date(), vbMonday, vbFirstFourDays)

    Sub Window_Onload()
        window.setTimeout "UpdateTime",100
    End Sub
   
    Sub UpdateTime()
        Dim ClockString
        ClockString = ClockString & " Klok: " & Time & " - Dato: " & Date & "Week: " & WeekNumber & "WeekDay: " & WeekDay(Date)
        nowtime.innerText = ClockString
        window.setTimeout "UpdateTime",100
    End Sub

//>Rune
Avatar billede [tpl]foxy Nybegynder
20. november 2002 - 00:05 #5
hvad med weekday kan man ikke få den til at skrive det som fx mandag ?
Avatar billede medions Nybegynder
20. november 2002 - 00:32 #6
Prøv med WeekDayName(Now)
http://activedeveloper.dk/iishelp/vbscript/htm/vsfctWeekdayName.htm

//>Rune
Avatar billede medions Nybegynder
20. november 2002 - 00:39 #7
Hvis du vil ha' det i dansk format kunne du evt. oxo gøre sådan her:

    arrDays = Array("Man","Tir","Ons","Tor","Fre","Lør","Søn")
    strDayN = arrDays(WeekDay(Date())-2)
WeekNumber = DatePart("ww", date(), vbMonday, vbFirstFourDays)

    Sub Window_Onload()
        window.setTimeout "UpdateTime",100
    End Sub
   
    Sub UpdateTime()
        Dim ClockString
        ClockString = ClockString & " Klok: " & Time & " - Dato: " & Date & "Week: " & WeekNumber & "WeekDay: " & strDayN
        nowtime.innerText = ClockString
        window.setTimeout "UpdateTime",100
    End Sub

//>Rune
Avatar billede [tpl]foxy Nybegynder
20. november 2002 - 00:47 #8
(Now) virker heller ikke..
Avatar billede medions Nybegynder
20. november 2002 - 00:52 #9
Har du prøvet med
    arrDays = Array("Man","Tir","Ons","Tor","Fre","Lør","Søn")
    strDayN = arrDays(WeekDay(Date())-2)

?

//>Rune
Avatar billede [tpl]foxy Nybegynder
20. november 2002 - 00:53 #10
har fået det til at virke nu.. mange tak for hjælpsomheden =)
Avatar billede medions Nybegynder
20. november 2002 - 07:23 #11
Anytime...
Thx 4 Poinz

//>Rune
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
VBS Af bsn i VBscript 5 16/07/202614:01 18/07/202610:46
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:43 Nomad Tracking Car Af fleknes i Apps til Android
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
White papers
Flere white papers »