Avatar billede radion Nybegynder
11. august 2002 - 23:24 Der er 15 kommentarer og
1 løsning

Hvordan finder man ud af hvilken dag det er

Hvad er muligheden for at finde ud af at det i dag er søndag? og hvor mange dage der er i en given måned et givent år?
Avatar billede kovalt Nybegynder
11. august 2002 - 23:26 #1
Masser.....

dagen i dag udskrives som

datonu = now()
response.write datonu
Avatar billede medions Nybegynder
11. august 2002 - 23:26 #2
Her har du hvilken månede du er i:
dato = Date()
aar = Right(dato,4)
maaned = Left(Right(dato,7),2)
Response.Write aar & "<BR>" & maaned

arrDato = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
Response.Write(Day(Date()) & ". " & arrDato(Month(Date())) & " " & Year(Date()))

...
Avatar billede kovalt Nybegynder
11. august 2002 - 23:27 #3
Hvad mener du med det sidste
Avatar billede kovalt Nybegynder
11. august 2002 - 23:30 #4
Skal man kunne indtaste et år og en måned og så få antallet af dage retur eller hvordan?
Avatar billede radion Nybegynder
11. august 2002 - 23:31 #5
jep. det er kun feb. det drejer sig om. er der er 27 el. 28 dage. men de 2 andre funktioner hjælper mig jo ikke til at finde ud af andet end datoen. skal finde ud af om det er mandag, tirsdag, onsdag, torsdag..osv...
Avatar billede medions Nybegynder
11. august 2002 - 23:32 #6
arrDays = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
    Response.Write(arrDays(WeekDay(Date())-1))

dagnavn..

//>Rune
Avatar billede radion Nybegynder
11. august 2002 - 23:35 #7
hmm.. kan du hjælpe mig med månedstingen ( basicly at finde ud af om året er skudår eller ej...)
Avatar billede medions Nybegynder
11. august 2002 - 23:40 #8
Okay, er det bare at finde ud af om året er et skudår eller skal du bruge alt det andet oxo?

//>Rune
Avatar billede radion Nybegynder
11. august 2002 - 23:41 #9
kun om det er skudår, så finder jeg ud af resten..
Avatar billede radion Nybegynder
11. august 2002 - 23:44 #10
Har fundet ud af det., Men tak  for dagsnavnet.
Avatar billede medions Nybegynder
11. august 2002 - 23:44 #11
Ok, så prøv med det her:

Dim mth_len, length, ye
Set mth_len = New Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
length = mth_len(Month(Now))
ye = Year(Now)
If length = 28 And ye Mod 4 = 0 And Not ye Mod 100 = 0 Then length = 29

End If

//>Rune
Avatar billede radion Nybegynder
11. august 2002 - 23:47 #12
Jeg kreerede denne:
skudaar=year(now)-1972 ' 1972 var skudår
skudaar = skudaar/4
If skudaar = CInt(skudaar) Then
Response.Write "det er skudår"
Else
Response.Write "det er ikke skudår"
End If
Avatar billede medions Nybegynder
11. august 2002 - 23:47 #13
Dim mth_len, length, ye
mth_len = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
length = mth_len(Month(Now))
ye = Year(Now)
If length = 28 And ye Mod 4 = 0 And Not ye Mod 100 = 0 Then length = 29

End If

hmm, sådan var det vidst ;o)
//>Rune
Avatar billede medions Nybegynder
11. august 2002 - 23:47 #14
Anytime ;o)
Thx 4 Poinz

//>Rune
Avatar billede radion Nybegynder
11. august 2002 - 23:49 #15
Det er mig der takker. fortsat god weekend... 7 minutter endnu.
Avatar billede medions Nybegynder
11. august 2002 - 23:50 #16
;o) Tak, iligemåde...

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester