Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Datum när man vet veckonummer...

Postades av 2004-09-24 14:02:10 - Stefan Brännström, i forum asp - allmänt, Tråden har 1 Kommentarer och lästs av 421 personer

orkar inte tänka... hoppas någon annan har löst detta.
Kanske finns någon bra funktion t.o.m..?

Om jag vet veckonumret samt vilket år det gäller... hur får jag fram vilket datum det är på måndagen i samma vecka?

//EDIT

Löste det själv...

Sidan i exemplet nedan anropas med <b>sida.asp?y=2004&w=39</b>
<code>
<%
Session.LCID = 3081 ' Australia
y = cInt(Request.QueryString("y"))
d = WeekDay(DateSerial(y,1,1))
m = 7-d+3
iDat = DateSerial(y,1,m)
w = DatePart("ww",iDat,0,0)
c = cInt(Request.QueryString("w"))
d = 7*(c-w)

' dMon = Date for Monday in current week
dMon = DateAdd("d",d,iDat)

' dSun = Date for Sunday in current week
dSun = DateAdd("d",6,dMon)
%>
</code>


Svara

Som funktion:

Postades av 2004-09-24 15:58:13 - Hans Ekgrund

<code>
Function mandagsDatum(veckoNr)
' Vecka anges som 200237 ex.vis i veckoNr
Dim Jan01
dim v
dim w
dim vd
dim d

Jan01 = DateSerial(veckoNr \ 100, 1, 1)
v = DatePart("ww", Jan01, vbMonday, vbFirstFourDays)
w = veckoNr Mod 100
If v = 1 Then w = w - 1
d = DateAdd("d", w * 7, Jan01)
vd = DatePart("w", d, vbMonday, vbFirstFourDays)
mandagsDatum = DateAdd("d", 1 - vd, d)
End Function
</code>


Svara

Nyligen

  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant
  • 19:13 Международная перевозка грузов
  • 00:01 DL Van Tuning | Exclusive Body Kit
  • 12:08 Indian casino

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 880
27 965
271 776
626
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies