CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede krel Nybegynder
11. juni 2008 - 22:58 Der er 14 kommentarer

Hjælp til dato med Date

Hej Derude.
Roder med min kalender og det virker (næsten) optimalt MEN i stedet for at have en pil til at bladre mellem månederne tænkte jeg hey jeg bruger da jan feb mar osv. i stedet for - ser da meget federe ud. JA i teorien bror dyt!

Problemet opstår nemlig når man enten når til februar og vil bladre til januar eller i modsatte ende af året når man i november vil videre til december.

Tror selv jeg kan se hvorfor, men har så ingen idé til hvordan jeg så laver mit stunt med måned-navne...

lidt kode:
<%
dtmDate = Request.QueryString("date")
dtmToday = Date
If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if
intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
strprev = Left((MonthName(Month(dtmDate)-1)), 3)
strnext = Left((MonthName(Month(dtmDate)+1)), 3)
%>

ved at jeg her trække på selve måned-navnet og der er jo ikke nogen måned før/efter januar/februar

men hva gør jeg så??

  • eksempel: http://www.tourdefoxdecarvalho.dk/version3/kalender/kalender.asp

    • HJÆÆÆÆÆÆLLLP troede lige jeg var så snedig - men NEJ!

    mvh.
    Kristian
    Avatar billede w13 Novice
    12. juni 2008 - 09:08 #1
    Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
    [Microsoft][ODBC Microsoft Access Driver] Missing ), ], or Item in query expression 'Month(datostempel = Month()'.

    /version3/kalender/kalender.asp, line 150

    ?
    Avatar billede krel Nybegynder
    12. juni 2008 - 23:19 #2
    en sql jeg skal bruge til noget andet men kan ikke se hvad det har med det andet at gøre????

    Set rs=Conn.Execute("select * from [kalender] where Month(datostempel)= "& Month(CDate(request.querystring("date"))))

    ?
    Avatar billede krel Nybegynder
    14. juni 2008 - 22:50 #3
    ?? igen bud på hvordan jeg ellers kan lave en forrige / næste funktion med de første 3 bogstaver af navnet på henholdsvis forrige og næste måned..

    eksempel denne måned (juni)

    maj JUNI 2008 jul    (denne her jeg ønsker)

    i stedet for

    << JUNI 2008 >>
    Avatar billede w13 Novice
    15. juni 2008 - 15:58 #4
    Har du ikke måneden (juni) i talform et sted? Det gør det jo noget lettere.
    Avatar billede krel Nybegynder
    15. juni 2008 - 19:00 #5
    tjo jeg har faktisk lavet det på en anden måde men det fylder bare en del måske det kan kotes ned?? har 12x nedenstående (for hver måned)

    if Month(CDate(request.querystring("date"))) = 1 then
    strprev = "dec"
    strnext = "feb"
    end if
    Avatar billede w13 Novice
    15. juni 2008 - 20:25 #6
    Du bør arbejde med det i talform hele vejen igennem.

    Når du skal bruge månednavnet som 3 bogstaver, så brug:

    iMonth=3
    MonthName(iMonth,True)

    Og så kan du spare dine 12x kode ved at lave det til:

    strprev=Month(CDate(Request.Querystring("date")))-1
    strnext=Month(CDate(Request.Querystring("date")))+1
    If strprev=-1 Then strprev=12
    ElseIf strnext=13 Then strnext=1
    Avatar billede krel Nybegynder
    15. juni 2008 - 23:56 #7
    ja det er den så ikke så meget for:

    Microsoft VBScript compilation error '800a0414'

    Cannot use parentheses when calling a Sub

    /version3/kalender/kalender.asp, line 29

    MonthName(iMonth,True)
    ----------------------^

    bruges MonthName ikke også tidligere?? det kan vel ikke være to ting eller hvordan hønger det sammen?
    > er ikke den store programørHAJ..
    Avatar billede w13 Novice
    16. juni 2008 - 09:30 #8
    Prøv lige at fjerne ",True" så. Så skulle den skrive hele månedens navn. Så må vi se, om den kan finde ud af det.
    Avatar billede krel Nybegynder
    16. juni 2008 - 18:15 #9
    nope får en 500'er
    Avatar billede w13 Novice
    16. juni 2008 - 20:12 #10
    Hmm, sorry. Det er fordi vi ikke tildeler den til en variable:

    iMonth=3
    etellerandet = MonthName(iMonth,True)
    Avatar billede solle Nybegynder
    23. juni 2008 - 11:47 #11
    som w13 siger, så bør du benytte månedernes numeriske værdi!!

    Har lavet en funktion til dig, der finder månedsnavnets numeriske værdi!!!

    Jan=1, feb=2... etc etc etc...

    function MonthName_to_monthnum(strMonthName)
        dim ReturnMonthNum
        for m_i=1 to 12
            if(LCase(Left(MonthName(m_i), Len(strMonthIN)))=LCase(strMonthIN))then
                ReturnMonthNum=m_i
                exit for
            end if
        next
        MonthName_to_monthnum = ReturnNum
    end function
    Avatar billede solle Nybegynder
    23. juni 2008 - 11:49 #12
    kald den med:

    intMonthNum = MonthName_to_monthnum("jan")' el. MonthName_to_monthnum("januar")

    så er

    intMonthNum = 1
    Avatar billede solle Nybegynder
    23. juni 2008 - 11:59 #13
    oops.... Kopierede ikke den ændrede kode:

    function MonthName_to_monthnum(strMonthName)
        dim ReturnMonthNum
        for m_i=1 to 12
            if(LCase(Left(MonthName(m_i), Len(strMonthName)))=LCase(strMonthName))then
                ReturnMonthNum=m_i
                exit for
            end if
        next
        MonthName_to_monthnum = ReturnMonthNum
    end function
    Avatar billede krel Nybegynder
    24. juni 2008 - 23:46 #14
    tjaaa.. men sidder jeg så ikke bare tilbage med værdien nu altså fra 1-12?? eller skal din funktion kædes sammen med noget af det kode w13 har skrevet ??

    ?
    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 ASP kategorien

    Titel Indlæg Oprettet Seneste aktivitet
    Lost focus Af bsn i ASP 0 07/11/202415:34 -
    ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
    Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
    Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
    JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
    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 dag 08:16 Outlook Af jdann i E-mail programmer
    I går 20:00 Genie Timeline Af Malm i Andet software
    I går 16:09 Plex virker ikke uden for netværk ??? Af Ronron i Mac
    I går 16:03 exFat Af Bruce i Apps til iOS
    I går 14:57 Ukendt enhed logget på mit netværk Af KristinaS i Wifi
    White papers
    Flere white papers »


    Premium
    Teaser billede
    Et år efter hård kritik: En stribe myndigheder har fortsat store huller i deres kriseberedskaber
    Læs mere »
    Næsten alle de gode navne er taget, men domænehandleren Marcus har en opskrift, der kan hjælpe dig med at kapre drømmeadressen
    EU åbner NIS2-sag mod Danmark efter store forsinkelser: Får to måneder
    Gør som stort konsulenthus: Rekruttér selv og få bedre kvalitet … og spar en masse penge
    Se alle »
    Computerworld
    Teaser billede
    Omfattende netværksproblemer hos TDC: Nu er årsagen muligvis fundet
    Læs mere »
    Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
    Stortest: Med USB-C skulle alle kabler være lige - men det er de bare slet ikke
    Et ”mareridt for privatlivets fred”: Kontroversiel Windows-funktion er udkommet i en test-version
    Se alle »
    CIO
    Teaser billede
    Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
    Læs mere »
    Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
    Leverandør til 50 danske kommuner ramt af ransomware: "Det er ikke sjovt," siger direktør Thomas à Porta
    Microsoft et døgn efter nedbrud: Stadig problemer med Outlook
    Se alle »
    Job & Karriere
    Teaser billede
    Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
    Læs mere »
    Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
    Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
    Twoday er rykket til et af de dyreste postnumre i Danmark – og det kan betale sig, siger topchef Lars Berthelsen
    Se alle »
    White paper
    Teaser billede
    Derfor kræver AI, cloud og sikkerhed et stærkere netværk
    Læs mere »
    Cyberangreb bliver mere kostbare: Er du forberedt?
    SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
    Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
    Se alle »

    Events
    Flere events »
    White papers
    Flere white papers »
    IT-Kurser
    Se alle vores it-kurser »