|
|
 | Hvor mange dage pr måned/år?
Fra : Mr.D |
Dato : 23-05-06 22:03 |
|
Hvordan tæller jeg hvor mange dage der er på en given måned eller et
givet år?
--
Mr.D
| |
 Niels Henriksen (23-05-2006)
| Kommentar
Fra : Niels Henriksen |
Dato : 23-05-06 23:10 |
|
"Mr.D" <mrd@netmail.net> wrote in message
news:4473787c$0$67259$157c6196@dreader2.cybercity.dk...
> Hvordan tæller jeg hvor mange dage der er på en given måned eller et givet
> år?
>
arMonth = Array(31,28,31,30,31,30,31,31,30,31,30,31)
DageIMonth = arMonth(month(now))
Du skal blot tjekke for om det er skudår, så skal du +1 hvis måneden er
februar.
--
Niels Henriksen
www.netopcom.dk
Webhotel 8 kr pr 100 MB
| |
Benny Andersen (24-05-2006)
| Kommentar
Fra : Benny Andersen |
Dato : 24-05-06 08:15 |
|
On Tue, 23 May 2006 23:02:58 +0200, Mr.D wrote:
> Hvordan tæller jeg hvor mange dage der er på en given måned eller et
> givet år?
DayesOfYear = _
365 -((((y mod 4)=0) and ((y mod 100) <> 0)) or ((y mod 400)=0))
--
Mvh
Benny Andersen
| |
Harald Staff (25-05-2006)
| Kommentar
Fra : Harald Staff |
Dato : 25-05-06 15:39 |
|
Function DaysInMonth(Yr As Long, Mth As Long) As Long
DaysInMonth = Day(DateSerial(Yr, Mth + 1, 0))
End Function
Function DaysInYear(Yr As Long)
DaysInYear = 365 - (Month(DateSerial(Yr, 2, 29)) = 2)
End Function
Sub test()
MsgBox DaysInMonth(2004, 2)
MsgBox DaysInYear(2004)
End Sub
HTH. Beste hilsen Harald
"Mr.D" <mrd@netmail.net> skrev i melding
news:4473787c$0$67259$157c6196@dreader2.cybercity.dk...
> Hvordan tæller jeg hvor mange dage der er på en given måned eller et
> givet år?
>
> --
> Mr.D
| |
Harald Staff (25-05-2006)
| Kommentar
Fra : Harald Staff |
Dato : 25-05-06 15:41 |
|
Oops.
Function DaysInYear(Yr As Long) As Long
"Harald Staff" <innocent@enron.invalid> skrev i melding
news:n-udnUX3bP4LXOjZ4p2dnA@telenor.com...
>
> Function DaysInMonth(Yr As Long, Mth As Long) As Long
> DaysInMonth = Day(DateSerial(Yr, Mth + 1, 0))
> End Function
>
> Function DaysInYear(Yr As Long)
> DaysInYear = 365 - (Month(DateSerial(Yr, 2, 29)) = 2)
> End Function
>
> Sub test()
> MsgBox DaysInMonth(2004, 2)
> MsgBox DaysInYear(2004)
> End Sub
>
> HTH. Beste hilsen Harald
>
> "Mr.D" <mrd@netmail.net> skrev i melding
> news:4473787c$0$67259$157c6196@dreader2.cybercity.dk...
> > Hvordan tæller jeg hvor mange dage der er på en given måned eller et
> > givet år?
> >
> > --
> > Mr.D
>
>
| |
|
|