/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Fra ugenummer til datoer
Fra : Arne Skriver


Dato : 10-09-01 14:38

Hej NG

Jeg har brug for at kunne udregne datoerne for mandag og søndag i en bestemt
uge, ud fra ugenummeret. Hvis der er nogen der har en idé, vil det hjælpe
mig meget. Tak.

Arne Skriver



 
 
Harald Staff (10-09-2001)
Kommentar
Fra : Harald Staff


Dato : 10-09-01 17:50

Hei Arne

Prøv denne:

Function IsoMonday(Aar As Long, uke As Long) As Date
IsoMonday = DateSerial(Aar, 1, 4) + 1 - _
Weekday(DateSerial(Aar, 1, 4), vbMonday) + 7 * (uke - 1)
End Function

Sub test()
MsgBox IsoMonday(2001, 38)
End Sub

HTH. Beste hilsen Harald

Arne Skriver <arsk@faaborg.dk> skrev i news:9nifma$o1$1@sunsite.dk...
> Hej NG
>
> Jeg har brug for at kunne udregne datoerne for mandag og søndag i en
bestemt
> uge, ud fra ugenummeret. Hvis der er nogen der har en idé, vil det hjælpe
> mig meget. Tak.
>
> Arne Skriver
>
>



Jens (10-09-2001)
Kommentar
Fra : Jens


Dato : 10-09-01 18:14

Her er mit forslag, al koden er noget som jeg selv har fundet på, der er
sikkert en meget nemmer/bedere løsning men det skulle virke!

Option Explicit
Dim tel As Long
Dim dato As Date
Dim dagene As String
Dim Uge As Long
Dim arr As Long

Private Sub Form_Load()

' her skriver du den uge du gerne vil spørge på'''''jeg bruger uge 37
her'''''
Uge = 37
arr = DatePart("YYYY", Now)

' her vælger jeg næste år hvis ugen allerede er gået
If Uge < DatePart("WW", Now) Then arr = arr + 1

dato = "01-01-" & arr

Do Until tel = Uge
tel = DatePart("WW", dato)
dato = DateAdd("d", 1, dato)
Loop

For tel = 1 To 7
dagene = dagene & vbCrLf & dato
dato = DateAdd("d", 1, dato)
Next

MsgBox dagene
End

End Sub




Rayman (18-09-2001)
Kommentar
Fra : Rayman


Dato : 18-09-01 14:55

Fra MSDN:

MyStr = Format(MyDate, "dddd, mmm d yyyy")
' Returns "Wednesday, Jan 27 1993".

Altså MyStr = Format(date,"dddd") giver "tirsdag" på et dansk system.


"Arne Skriver" <arsk@faaborg.dk> skrev i en meddelelse
news:9nifma$o1$1@sunsite.dk...
> Hej NG
>
> Jeg har brug for at kunne udregne datoerne for mandag og søndag i en
bestemt
> uge, ud fra ugenummeret. Hvis der er nogen der har en idé, vil det hjælpe
> mig meget. Tak.
>
> Arne Skriver
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408889
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste