/ 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
Ugedag, dato og sådan ???
Fra : Brian Østergård


Dato : 18-12-05 19:26

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 :ø)



 
 
Jens Vestergaard (18-12-2005)
Kommentar
Fra : Jens Vestergaard


Dato : 18-12-05 19:53

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



Brian Østergård (18-12-2005)
Kommentar
Fra : Brian Østergård


Dato : 18-12-05 22:09


"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 :ø)



Søg
Reklame
Statistik
Spørgsmål : 177549
Tips : 31968
Nyheder : 719565
Indlæg : 6408820
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste