Avatar billede Slettet bruger
30. marts 2001 - 22:56 Der er 11 kommentarer og
1 løsning

sidste dag i måneden-script.

Hej allesammen.

Jeg står og mangler et script der skal trigges den sidste dag i hver måned.

Kan man lave dette på en let måde, eller SKAL jeg lave gå igennem denne routine:

-----------------------
test = Maaned MOD 2
If test = 0 then
dage = 31
else
dage = 30
end if
if Maaned = 2 then
dage = 28
end if
---------------------

Håber på en let løsning :O)
Avatar billede sp Nybegynder
03. april 2001 - 22:54 #1
Prøv med denne:

Dim MyDate
MyDate = Date   

If MyDate + 1 = \"1\" then

End if

mvh
Søren Peter
Avatar billede sp Nybegynder
03. april 2001 - 23:10 #2
hov der var jeg lige lidt hurtig.
Du skal selvfølgelig sætte den til at se om datoen er den første
DatePart(\"d\", dtmDate) returnerer dagen i  måneden

if DatePart(\"d\", dtmDate)+ 1 = \"1\" then

End if
Så skulle den virke.
date-formatet er vist for langt
Avatar billede Slettet bruger
03. april 2001 - 23:12 #3
ja... men problemet er at jeg skal kunne vise hvor mange dager der er fra idag til den sidste dag i måneden... 30/31/28....
Avatar billede sp Nybegynder
03. april 2001 - 23:21 #4
Hovsa \"dmtDate\" skal være a lig med \"now\"
Ja du kan jo sætte den til at udskrive
if DatePart(\"d\", now)+ 1 = \"1\" then
Response.write Date
End if

Prøv også at udskrive dagen efter.
Response.write DatePart(\"d\", now)+ 1


Avatar billede Slettet bruger
03. april 2001 - 23:24 #5
Jeg tror ikke du forstod mit spm... jeg skal tælle dagene fra NU (NOW) til den sidste dag i denne måned.
Avatar billede sp Nybegynder
03. april 2001 - 23:26 #6
Du skrev at du ville have et program til at trigge når det er sidste dag i måneden, det kan det jeg har skrevet!
Avatar billede sp Nybegynder
03. april 2001 - 23:27 #7
VBscript har sin egen kalender.
Avatar billede sp Nybegynder
03. april 2001 - 23:29 #8
Hvis DatePart(\"d\", now) + 1 dag er lig med den første, så skal den trigge.
Den 1. er jo altid den første og dagen før den er jo altid den sidste dag i måneden.
Avatar billede Slettet bruger
03. april 2001 - 23:36 #9
ah... det har du ret i...formulerede mig forkert... okay du får points\'ne anyway...

men er det muligt at vise hvor mange dage der er fra i dag til den sidste dag i måneden?
Avatar billede Slettet bruger
03. april 2001 - 23:47 #10
Håber du vil hjælpe... =)
Avatar billede sp Nybegynder
04. april 2001 - 00:09 #11
Det virker ikke helt som forventet. Dette her skulle kunne gøre det.
Og når du så har fundet hvad den 1. hedder i næste måned kan du jo finde ud af hvor mange dage der er til den første fra idag, og trække en fra.

<%

\'Sørg for at typerne passer sammen.

Months = right(\"00\" & DatePart(\"m\", dtmDate) ,2)
Years =right(\"00\" & DatePart(\"m\", dtmDate) ,2)
\' Hvad hedder den første i næste måned?

myDate=\"01-\" & Months+1 &\"-\"& Years



Response.write Date+1

if Date+1= myDate then
Response.write \"yes\"
End if



%>
Avatar billede sp Nybegynder
04. april 2001 - 11:27 #12
Et andet problem kan være at du lægger en til måned nummer 12, så bliver det 13.
Det kan klares ved at skrive:
If months+1 = \"13\" then
months=\"12\"
End if
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