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


Räkna ut sista söndagen...

Postades av 2002-08-01 11:45:24 - Torbjörn Karlsson, i forum asp - allmänt, Tråden har 8 Kommentarer och lästs av 464 personer

Hur kan jag smidigast räkna ut datum för den sista söndagen
i en månad.





mvh
Tobbe


Svara

Sv: Räkna ut sista söndagen...

Postades av 2002-08-01 11:49:27 - Magnus Gladh

Jag skulle nog tagit fram dagen för den 1 i varje månad eftersom en månad alltid börjar på 1.

Då vet man att det är ex. Tisdag och du vet att det är 2 dagar sedan som det var söndag.
Vilket dagsnummer det är kan du få ut med WeekDay() kolla dock så du börjar räkna på en måndag och inte söndag som det görs default.

Då tar du och använder DateDiff("d",DAGAR_TILL_SÖNDAG,DATUM_FÖR_DEN_FÖRST_I_MÅNADEN)

MVH
Magnus


Svara

Sv: Räkna ut sista söndagen...

Postades av 2002-08-01 12:10:00 - Jan Eriksson

En funktion som gör detta.

<code>
Response.Write LastSunday(8,2002)

Function LastSunday(intMonth, intYear)
For i = 31 To 28 Step -1
dteLastDay = intYear&"-"&intMonth&"-"&i
If IsDate(dteLastDay) Then dteLastDay = Cdate(dteLastDay) : Exit For
Next
LastSunday = DateAdd("d",0-(DatePart("w",dteLastDay,1)-1),dteLastDay)
End Function
</code>

Löst detta ditt problem?

/Janne


Svara

Sv: Räkna ut sista söndagen...

Postades av 2002-08-01 13:15:57 - Andreas Hillqvist

Sammanstället en generell funktion:
<code>
Function LastWeekday(intYear, intMonth, Optional intWeekDay = vbSunday)
LastWeekday = DateSerial(intYear, intMonth + 1, 0)
LastWeekday = LastWeekday - (Weekday(LastWeekday, intWeekDay) - 1)
End Function

</code>
Där man anger vilken av månadens sista veckodagar man vill plocka ut.
Istället för en loop, beräknar jag antalet dagar och subtraherar det.


Svara

Sv: Räkna ut sista söndagen...

Postades av 2002-08-01 23:22:28 - Torbjörn Karlsson

Jannes exempel funkar utmärkt. TACKAR!
Vilka parametrar kan jag ändra för att visa valfri dag i veckan
till exempel 2:a onsdagen eller 1:a tisdagen etc.?


Andreas exempel visar den NÄST sista söndagen.
Säkert kan en mindre korrigering fixa detta !?


mvh
Tobbe


Svara

Sv: Räkna ut sista valfri dag i månad...

Postades av 2002-08-02 00:20:05 - Torbjörn Karlsson

Jag blandade Jannes och Andreas recept och fick en ny bakelse...

Håll till godo... den verkar vara "buggfri"

Ändra input efter eget önskemål i Ar, Manad och Dag

---------------------------------------------------------
Ar = 2002
Manad = 1
Dag = 7

LastDayOfMonth = DateSerial(Ar, Manad + 1, 0)
For i = LastDayOfMonth To 1 Step -1
If WeekDay(i,vbMonday) = Dag Then
Response.Write(i)
Exit For
End If
Next
---------------------------------------------------------


mvh
Tobbe


Svara

Sv: Räkna ut sista söndagen...

Postades av 2002-08-02 09:10:58 - Andreas Hillqvist

Hittar inga problem med min funktion. Skickar du in rätt värde för intWeekDay parametern:
0 = vbUseSystemDayOfWeek
1 = vbSunday
2 = vbMonday
3 = vbTuesday
4 = vbWednesday
5 = vbThursday
6 = vbFriday
7 = vbSaturday

Vilket är standard konstanter för vb. Så om du anger 7 så får du sista lördagen i veckan.

Om du envisas med en for-sats/loop. Så är det betydligt enklare att bara skriva:
Do Until Weekday(LastWeekday, vbMonday) = Dag
LastWeekday = LastWeekday - 1
Loop


Svara

Sv: Räkna ut sista söndagen...

Postades av 2002-08-02 22:12:59 - Torbjörn Karlsson

Tack Andreas det funkade utmärkt ....


mvh
Tobbe


Svara

Nyligen

  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 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

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 903
27 965
271 779
2 589
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