/ 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
Tal til måned
Fra : Benny Boeskov


Dato : 04-06-01 16:01

Hej allesammen.

Jeg har et lille problem som jeg håber i kan hjælpe mig med.
jeg ville gerne have et given nummer fra 1 til 12 konverteret til en måned.
Jeg har forsøgt nedenstående uden held...


Dim X as integer
for X=1 to 12
List1.additem format(X,"mmmm")
next X

Hvad er der galm med ovenstående stump kode??

Med venlig hilsen Benny



 
 
Christian R. Larsen (04-06-2001)
Kommentar
Fra : Christian R. Larsen


Dato : 04-06-01 16:35

"Benny Boeskov" <bbo@private.dk> wrote in message
news:qqNS6.1586$R84.328126@news010.worldonline.dk...
> Hej allesammen.

Hej Benny!

Prøv dette i stedet:

> Dim X as integer
> for X=1 to 12
> List1.additem format((X+1)*30,"mmmm")
> next X

Problemet er, at du beder den formatere tallet x som måned. Men x læses ikke
som et månedsnummer, men derimod som et antal dage.



Benny Boeskov (04-06-2001)
Kommentar
Fra : Benny Boeskov


Dato : 04-06-01 18:53

Alletiders. Det virker som det skal. Mange tak for hjælpen...

Hilsen Benny

"Christian R. Larsen" <crlarsen@hotmail.com> wrote in message
news:xSNS6.1601$R84.334450@news010.worldonline.dk...
> "Benny Boeskov" <bbo@private.dk> wrote in message
> news:qqNS6.1586$R84.328126@news010.worldonline.dk...
> > Hej allesammen.
>
> Hej Benny!
>
> Prøv dette i stedet:
>
> > Dim X as integer
> > for X=1 to 12
> > List1.additem format((X+1)*30,"mmmm")
> > next X
>
> Problemet er, at du beder den formatere tallet x som måned. Men x læses
ikke
> som et månedsnummer, men derimod som et antal dage.
>
>



Thomas Eyde (06-06-2001)
Kommentar
Fra : Thomas Eyde


Dato : 06-06-01 17:33

Enda enklere:

Dim X as integer
for X=1 to 12
List1.additem MonthName(X, False) 'Bruk True for forkortelser
next X

/Thomas



Harald Staff (05-06-2001)
Kommentar
Fra : Harald Staff


Dato : 05-06-01 08:54

Hei Benny

Det du gjør galt er: 1 dag er 1 i Microsofts verden, som dessuten begynner
år 1900. 1 til 12 returerer dagene 31.12.1899 - 11.1.1900. (At 1 egentlig er
dag 0 i VB er en lang historie, kun på opfordring).

Bruk istedet
List1.additem Format(DateSerial(Year(Date), X, 1), "mmmm")

HTH. Beste hilsen Harald


Benny Boeskov <bbo@private.dk> skrev i
news:qqNS6.1586$R84.328126@news010.worldonline.dk...
> Hej allesammen.
>
> Jeg har et lille problem som jeg håber i kan hjælpe mig med.
> jeg ville gerne have et given nummer fra 1 til 12 konverteret til en
måned.
> Jeg har forsøgt nedenstående uden held...
>
>
> Dim X as integer
> for X=1 to 12
> List1.additem format(X,"mmmm")
> next X
>
> Hvad er der galm med ovenstående stump kode??
>
> Med venlig hilsen Benny
>
>



Anton Vestergaard (06-06-2001)
Kommentar
Fra : Anton Vestergaard


Dato : 06-06-01 09:26

Hej Harald
Den historie kender jeg ikke, men kan nogenlunde regne ud hvorfor.
Vil du fortælle den alligevel?

mvh
Anton
"Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
news:9fi37b$3us$1@oslo-nntp.eunet.no...
> Hei Benny
>
> Det du gjør galt er: 1 dag er 1 i Microsofts verden, som dessuten begynner
> år 1900. 1 til 12 returerer dagene 31.12.1899 - 11.1.1900. (At 1 egentlig
er
> dag 0 i VB er en lang historie, kun på opfordring).
>
> Bruk istedet
> List1.additem Format(DateSerial(Year(Date), X, 1), "mmmm")
>
> HTH. Beste hilsen Harald
>
>
> Benny Boeskov <bbo@private.dk> skrev i
> news:qqNS6.1586$R84.328126@news010.worldonline.dk...
> > Hej allesammen.
> >
> > Jeg har et lille problem som jeg håber i kan hjælpe mig med.
> > jeg ville gerne have et given nummer fra 1 til 12 konverteret til en
> måned.
> > Jeg har forsøgt nedenstående uden held...
> >
> >
> > Dim X as integer
> > for X=1 to 12
> > List1.additem format(X,"mmmm")
> > next X
> >
> > Hvad er der galm med ovenstående stump kode??
> >
> > Med venlig hilsen Benny
> >
> >
>
>



Harald Staff (07-06-2001)
Kommentar
Fra : Harald Staff


Dato : 07-06-01 15:20

Hei Anton

Tidlige regneark -tror det var Lotus 123- vedtok at tid var nat til 1.1.1900
00:00:00, og at man teller op derfra. Man hadde imidlertid glemt
regelunntakene for skudår. Et årstal er skudår når det er delelig med 4,
medmindre det er delelig med 100. Medmindre det er delelig med 400, så er
det skudår igjen. 2000 stemte altså tilfeldigvis på grunn av den doble
negasjon også i "gammel" Lotus, men 1900 ikke.

Excel skulle utkonkurrere Lotus, og måtte for kompatibilitetens skyld overta
den samme feil. Den er mer gjennomdiskuteret enn egentlig problematisk.

Så kom VBA med Excel 5 (denne var også sprogmotor i VB). Man ønsket ikke å
videreføre den åpenbare feilen, men man ønsket heller ikke at VBA og selve
Excel skulle returnere forskjellige resultater. Dermed flyttet man "verden"
en dag tidligere i VBA, og resultatene er 1 off de to første måndeder i år
1900.

Harald

Anton Vestergaard <anton_dkNONO@hotmail.com> skrev i
news:9fkp7n$296$1@news.inet.tele.dk...
> Hej Harald
> Den historie kender jeg ikke, men kan nogenlunde regne ud hvorfor.
> Vil du fortælle den alligevel?
>
> mvh
> Anton
> "Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
> news:9fi37b$3us$1@oslo-nntp.eunet.no...
> > Hei Benny
> >
> > Det du gjør galt er: 1 dag er 1 i Microsofts verden, som dessuten
begynner
> > år 1900. 1 til 12 returerer dagene 31.12.1899 - 11.1.1900. (At 1
egentlig
> er
> > dag 0 i VB er en lang historie, kun på opfordring).
> >
> > Bruk istedet
> > List1.additem Format(DateSerial(Year(Date), X, 1), "mmmm")
> >
> > HTH. Beste hilsen Harald
> >
> >
> > Benny Boeskov <bbo@private.dk> skrev i
> > news:qqNS6.1586$R84.328126@news010.worldonline.dk...
> > > Hej allesammen.
> > >
> > > Jeg har et lille problem som jeg håber i kan hjælpe mig med.
> > > jeg ville gerne have et given nummer fra 1 til 12 konverteret til en
> > måned.
> > > Jeg har forsøgt nedenstående uden held...
> > >
> > >
> > > Dim X as integer
> > > for X=1 to 12
> > > List1.additem format(X,"mmmm")
> > > next X
> > >
> > > Hvad er der galm med ovenstående stump kode??
> > >
> > > Med venlig hilsen Benny
> > >
> > >
> >
> >
>
>



Anton Vestergaard (11-06-2001)
Kommentar
Fra : Anton Vestergaard


Dato : 11-06-01 15:12

Tak

/Anton
"Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
news:9fo2i8$fi$1@oslo-nntp.eunet.no...
> Hei Anton
>
> Tidlige regneark -tror det var Lotus 123- vedtok at tid var nat til
1.1.1900
> 00:00:00, og at man teller op derfra. Man hadde imidlertid glemt
> regelunntakene for skudår. Et årstal er skudår når det er delelig med 4,
> medmindre det er delelig med 100. Medmindre det er delelig med 400, så er
> det skudår igjen. 2000 stemte altså tilfeldigvis på grunn av den doble
> negasjon også i "gammel" Lotus, men 1900 ikke.
>
> Excel skulle utkonkurrere Lotus, og måtte for kompatibilitetens skyld
overta
> den samme feil. Den er mer gjennomdiskuteret enn egentlig problematisk.
>
> Så kom VBA med Excel 5 (denne var også sprogmotor i VB). Man ønsket ikke å
> videreføre den åpenbare feilen, men man ønsket heller ikke at VBA og selve
> Excel skulle returnere forskjellige resultater. Dermed flyttet man
"verden"
> en dag tidligere i VBA, og resultatene er 1 off de to første måndeder i år
> 1900.
>
> Harald
>
> Anton Vestergaard <anton_dkNONO@hotmail.com> skrev i
> news:9fkp7n$296$1@news.inet.tele.dk...
> > Hej Harald
> > Den historie kender jeg ikke, men kan nogenlunde regne ud hvorfor.
> > Vil du fortælle den alligevel?
> >
> > mvh
> > Anton
> > "Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
> > news:9fi37b$3us$1@oslo-nntp.eunet.no...
> > > Hei Benny
> > >
> > > Det du gjør galt er: 1 dag er 1 i Microsofts verden, som dessuten
> begynner
> > > år 1900. 1 til 12 returerer dagene 31.12.1899 - 11.1.1900. (At 1
> egentlig
> > er
> > > dag 0 i VB er en lang historie, kun på opfordring).
> > >
> > > Bruk istedet
> > > List1.additem Format(DateSerial(Year(Date), X, 1), "mmmm")
> > >
> > > HTH. Beste hilsen Harald
> > >
> > >
> > > Benny Boeskov <bbo@private.dk> skrev i
> > > news:qqNS6.1586$R84.328126@news010.worldonline.dk...
> > > > Hej allesammen.
> > > >
> > > > Jeg har et lille problem som jeg håber i kan hjælpe mig med.
> > > > jeg ville gerne have et given nummer fra 1 til 12 konverteret til en
> > > måned.
> > > > Jeg har forsøgt nedenstående uden held...
> > > >
> > > >
> > > > Dim X as integer
> > > > for X=1 to 12
> > > > List1.additem format(X,"mmmm")
> > > > next X
> > > >
> > > > Hvad er der galm med ovenstående stump kode??
> > > >
> > > > Med venlig hilsen Benny
> > > >
> > > >
> > >
> > >
> >
> >
>
>



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

Månedens bedste
Årets bedste
Sidste års bedste