Meddelande

Minska
No announcement yet.

Ersätt 2002-05-22 till idag 2002 =)

Minska
X
  • Filter
  • Klockan
  • Show
Clear All
new posts

  • Ersätt 2002-05-22 till idag 2002 =)

    [kod]
    <%

    Function Free(f2)

    Set objRegExp = New regexp
    objRegExp.Global = true
    objRegExp.IgnoreCase = true
    f2 = Server.HTMLEncode(f2)

    'Om det är dagensdatum (2002-05-22) så skriver den ut Idag
    objRegExp.Pattern = date()
    f2 = objRegExp.Replace(f2,"Idag")

    'Samma som ovan fast bara för inlägg som var igår.
    objRegExp.Pattern = date()-1
    f2 = objRegExp.Replace(f2,"Igår")

    'ersätter 2002-05-22 till = 22/05 - 02
    objRegExp.Pattern = "(..)(..)\-(..)\-(..)"
    f2 = objRegExp.Replace(f2,"$4/$3 - $2")

    free = f2
    End Function
    %>
    [/kod]

    Hoppas ni har någon användning av detta.
    Last edited by voigtann1; 2002-09-25, 07:11.
    "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

  • #2
    En alternativ variant på samma funktion, men som inte använder RegExp:


    [kod]' Konverterar datum i NOW-format till "1 jan 2000 01:00" (med eller utan tid).
    Function ConvDate(dtmDatum, blnAddTime)
    Dim intDaysPrune, strDate, strTime, arrMonths

    If isEmpty(dtmDatum) Or isNull(dtmDatum) Then Exit Function

    intDaysPrune = DateDiff("d", dtmDatum, Now())
    If intDaysPrune = 0 Then
    strDate = "Idag"
    ElseIf intDaysPrune = 1 then
    strDate = "Igår"
    Else
    arrMonths = Array("Januari", "Februari", "Mars", "April", "Maj", "Juni", "Juli", "Augusti", "September", "Oktober", "November", "December")
    strDate = Day(dtmDatum) & " " & Lcase(Left(arrMonths(Month(dtmDatum) - 1), 3)) & " " & Year(dtmDatum)
    End If
    If blnAddTime Then
    strTime = " " & FormatDateTime(dtmDatum, 4)
    End If
    ConvDate = strDate & strTime
    End Function[/kod]
    Take your god and shove him

    Kommentera


    • #3
      for i = 1 to 12
      objRegExp.Pattern = "(....)\-(" & right("0" & i,2) & ")\-(..)"
      f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i)) & " $1")
      next


      så får ni:
      1 januari 2002 tex istället för 2002-01-01
      "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

      Kommentera


      • #4
        hur blir det om det är samma datum men ett annat år? blir det inte knas då?
        /greggan greggan

        Kommentera


        • #5
          Nej... eftersom den kollar date()... om ett datum i tex databasen är lika med mönstret som date() ger då ska den svara med att skriva ut idag istället för date()
          "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

          Kommentera


          • #6
            men om jag vill ha in detta rs i regexp-versionen då
            visitor1("HomeTimeVisited")

            Hur får jag den att bli
            Idag "tid"
            och Igår "tid"

            Kommentera


            • #7
              [kod]
              Free(cdate(Värde))[/kod]
              ersätt värde med med vad ni nu vill använda...
              "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

              Kommentera


              • #8
                voigtann1 skrev: Visa inlägg
                [kod]
                Free(cdate(Värde))[/kod]
                ersätt värde med med vad ni nu vill använda...
                Det här blev ju inte alls lyckat
                <%=Free(Cdate(right(replace(showAll("klotterDatum"),"-",""),6)))%>&nbsp;<%=showAll("klotterTime")%>

                Resultat 08/07 - 47 19:19:23

                Kommentera


                • #9
                  1. Vad innehåller din KlotterDatum då?
                  2. Du ersätter - med "" vilket inte gör den till ett datum alls (få inte till det i alla fall).
                  3. Om både punkt 1 och 2 ser ok ut, vad är det för data du slänger in i funktionen i slutet:
                  vad ger:
                  [kod]Cdate(right(replace(showAll("klotterDatum"),"-",""),6))[/kod]för struktur innan den gå in i "min" funktion?
                  "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

                  Kommentera

                  Working...
                  X