---

Hej

Jeg har et labelarray hvor jeg gerne vil have label(0).caption til at være
den aktuelle ugedag og label(1).caption ugedagen i går o.s.v. indtil de
forrige 7 dage står der, er der en måde at gøre det på ?
Det er vel noget med Format Date og så Format Date - 1 eller hvad ?

Det er en regnmåler jeg er ved at arbejde på. Der er en del funktioner hvor
jeg kommer til at rode med datoer så hvis der evt. er nogle som ligger inde
med et link med eksempler på datoformater og lignende vil det være en stor
hjælp.

På forhånd tak.

Brian :ø)

---

I news:43a5a9b8$0$38644$edfadb0f@dread12.news.tele.dk,
skrev Brian Østergård <mantabrian@REMOVEhotmail.com>:
> Hej
>
> Jeg har et labelarray hvor jeg gerne vil have label(0).caption til at
> være den aktuelle ugedag og label(1).caption ugedagen i går o.s.v.
> indtil de forrige 7 dage står der, er der en måde at gøre det på ?
> Det er vel noget med Format Date og så Format Date - 1 eller hvad ?

Private Sub Command1_Click()
Dim x as Long

For x = 6 To 0 Step -1
Label(x) = Format(DateAdd("d", -x, Now), "dddd", vbMonday)
Next

End Sub


--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp

---

"Jens Vestergaard" <j@railsoft.dk> skrev i en meddelelse
news:43a5afef$0$2096$edfadb0f@dtext02.news.tele.dk...
>I news:43a5a9b8$0$38644$edfadb0f@dread12.news.tele.dk,
> skrev Brian Østergård <mantabrian@REMOVEhotmail.com>:
>> Hej
>>
>> Jeg har et labelarray hvor jeg gerne vil have label(0).caption til at
>> være den aktuelle ugedag og label(1).caption ugedagen i går o.s.v.
>> indtil de forrige 7 dage står der, er der en måde at gøre det på ?
>> Det er vel noget med Format Date og så Format Date - 1 eller hvad ?
>
> Private Sub Command1_Click()
> Dim x as Long
>
> For x = 6 To 0 Step -1
> Label(x) = Format(DateAdd("d", -x, Now), "dddd", vbMonday)
> Next
>
> End Sub
>
>
> --
> mvh
> Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
> Døgnets jernbanenyheder: www.railsoft.dk/medier.asp
>
>
Hej

Perfekt det var lige hvad jeg søgte.
Så fik jeg også lært DataAdd funktionen

Tak for hjælpen.

Brian :ø)