/ 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
Hurtig hjælp til noget med dato....
Fra : Jesper


Dato : 23-06-02 17:55

Har 2 datoer

24-12-2001 og 22-01-2002

Skal bruge en liste med alle dage der imellem. Er der en simpel måde????

Det skulle gerne resultere i 30 linier....

Jesper G.




 
 
Mikkel Bundgaard (23-06-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 23-06-02 17:58

Jesper <oz5pc@post.tdcadsl.dk> wrote:
> Har 2 datoer
>
> 24-12-2001 og 22-01-2002
>
> Skal bruge en liste med alle dage der imellem. Er der en simpel
> måde????
>
> Det skulle gerne resultere i 30 linier....
>
> Jesper G.
Hej Jesper

Prøv med følgende kode

Sub listDays(startDate As Date, endDate As Date)
Dim current As Date

For current = startDate To endDate
Debug.Print current
Next current
End Sub

Så kan du kalde den sådan her for det ønskede resultat:
listDays "24-12-2001", "22-01-2002"
--
Mikkel Bundgaard
Student at IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum



Jesper (23-06-2002)
Kommentar
Fra : Jesper


Dato : 23-06-02 18:48

Kan kun sige PERFEKT og HURTIGT.....

Jesper....

"Mikkel Bundgaard" <mikkelbu@teliamail.dk> skrev i en meddelelse
news:af4up9$o27$1@sunsite.dk...
> Jesper <oz5pc@post.tdcadsl.dk> wrote:
> > Har 2 datoer
> >
> > 24-12-2001 og 22-01-2002
> >
> > Skal bruge en liste med alle dage der imellem. Er der en simpel
> > måde????
> >
> > Det skulle gerne resultere i 30 linier....
> >
> > Jesper G.
> Hej Jesper
>
> Prøv med følgende kode
>
> Sub listDays(startDate As Date, endDate As Date)
> Dim current As Date
>
> For current = startDate To endDate
> Debug.Print current
> Next current
> End Sub
>
> Så kan du kalde den sådan her for det ønskede resultat:
> listDays "24-12-2001", "22-01-2002"
> --
> Mikkel Bundgaard
> Student at IT University of Copenhagen
> http://officehelp.gone.dk
> Codito, Ergo Sum
>
>



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

Månedens bedste
Årets bedste
Sidste års bedste