Onderwerp: Sterrenbeeld laten zien

Hoi, op een profielenpagina wil ik aan de hand van iemand's
geboortedatum graag zijn/haar sterrenbeeld laten zien. Ik gebruik ASP/vb

Ik kon geen voorbeeld vinden en heb daarom geprobeerd zelf wat te
schrijven, maar het werkt helaas nog niet helemaal.

Ik definieer eerst de variabele, hier verander ik het geboortejaar in
het huidige jaar zodat ik met het huidige jaar kan vergelijken. Mij leek
het makkelijkste om dan gewoon als volgt te doen:

stel geboortedatum is 23-3-1979, dit wordt dan 23-3-2003 en dan:
als 23-3-2003 tussen 21-3-2003 en 19-4-2003 dan
response.write Ram

Nu is er in ASP geen "between" om tussen datums te kijken daarom had ik
het onderstaande bedacht maar dat werkt niet. Ik hoop dat iemand mij
verder kan helpen.

Pim


de variabelen:
<% dim varbDay
varbDay = day(P.Fields.Item("M_DOB").Value)
%>
<% dim varbMonth
varbMonth = month(P.Fields.Item("M_DOB").Value)
%>
<% dim varbYear
varbYear = year(date)
%>
<% dim varb
varb = varbDay&"-"&varbMonth&"-"&varbYear
%>

de code om het sterrenbeeld te laten zien:
<% if varb >= 1-1-varbYear and varb <= 19-1-varbYear then
response.write"steenbok"
elseif varb >= 20-1-varbYear and varb <= 18-2-varbYear then
response.write"waterman"
elseif varb >= 19-2-varbYear and varb <= 20-3-varbYear then
response.write"vissen"
elseif varb >= 21-3-varbYear and varb <= 19-4-varbYear then
response.write"ram"
elseif varb >= 20-4-varbYear and varb <= 20-5-varbYear then
response.write"stier"
elseif varb >= 21-5-varbYear and varb <= 21-6-varbYear then
response.write"tweeling"
elseif varb >= 22-6-varbYear and varb <= 22-7-varbYear then
response.write"kreeft"
elseif varb >= 23-7-varbYear and varb <= 22-8-varbYear then
response.write"leeuw"
elseif varb >= 23-8-varbYear and varb <= 22-9-varbYear then
response.write"maagd"
elseif varb >= 23-9-varbYear and varb <= 23-10-varbYear then
response.write"weegschaal"
elseif varb >= 24-10-varbYear and varb <= 21-11-varbYear then
response.write"schorpioen"
elseif varb >= 22-11-varbYear and varb <= 31-12-varbYear then
response.write"steenbok"
end if %>

Pim de Win wrote:
> Hoi, op een profielenpagina wil ik aan de hand van iemand's
> geboortedatum graag zijn/haar sterrenbeeld laten zien. Ik gebruik
> ASP/vb
>
> Ik kon geen voorbeeld vinden en heb daarom geprobeerd zelf wat te
> schrijven, maar het werkt helaas nog niet helemaal.
>
> Ik definieer eerst de variabele, hier verander ik het geboortejaar in
> het huidige jaar zodat ik met het huidige jaar kan vergelijken. Mij
> leek het makkelijkste om dan gewoon als volgt te doen:
>
> stel geboortedatum is 23-3-1979, dit wordt dan 23-3-2003 en dan:
> als 23-3-2003 tussen 21-3-2003 en 19-4-2003 dan
> response.write Ram
>
> Nu is er in ASP geen "between" om tussen datums te kijken daarom had
> ik het onderstaande bedacht maar dat werkt niet. Ik hoop dat iemand
> mij verder kan helpen.
>
> Pim
>
>
> de variabelen:
> <% dim varbDay
> varbDay = day(P.Fields.Item("M_DOB").Value)
> %>
> <% dim varbMonth
> varbMonth = month(P.Fields.Item("M_DOB").Value)
> %>
> <% dim varbYear
> varbYear = year(date)
> %>
> <% dim varb
> varb = varbDay&"-"&varbMonth&"-"&varbYear
> %>
>
> de code om het sterrenbeeld te laten zien:
> <% if varb >= 1-1-varbYear and varb <= 19-1-varbYear then
> response.write"steenbok"
> elseif varb >= 20-1-varbYear and varb <= 18-2-varbYear then
> response.write"waterman"
> elseif varb >= 19-2-varbYear and varb <= 20-3-varbYear then
> response.write"vissen"
> elseif varb >= 21-3-varbYear and varb <= 19-4-varbYear then
> response.write"ram"
> elseif varb >= 20-4-varbYear and varb <= 20-5-varbYear then
> response.write"stier"
> elseif varb >= 21-5-varbYear and varb <= 21-6-varbYear then
> response.write"tweeling"
> elseif varb >= 22-6-varbYear and varb <= 22-7-varbYear then
> response.write"kreeft"
> elseif varb >= 23-7-varbYear and varb <= 22-8-varbYear then
> response.write"leeuw"
> elseif varb >= 23-8-varbYear and varb <= 22-9-varbYear then
> response.write"maagd"
> elseif varb >= 23-9-varbYear and varb <= 23-10-varbYear then
> response.write"weegschaal"
> elseif varb >= 24-10-varbYear and varb <= 21-11-varbYear then
> response.write"schorpioen"
> elseif varb >= 22-11-varbYear and varb <= 31-12-varbYear then
> response.write"steenbok"
> end if %>

Een uitdrukking zoals
varb >= 22-11-varbYear
wordt door ASP verkeerd begrepen.
22-11-varbYear geeft als resultaat: -1992 en helemaal niet de datum die jij
verwacht.

Probeer eens iets in de volgende trant:

CDate(varb)>=CDate("22-11-" & varbYear)

Vergeet ook niet Session.LCID op 1043 (Dutch) te zetten, anders worden je
datums
op de Amerikaanse wijze geïnterpreteerd (mm-dd-yyyy).

--

Sam Mildener

Pim de Win wrote:
> Hoi, op een profielenpagina wil ik aan de hand van iemand's
> geboortedatum graag zijn/haar sterrenbeeld laten zien. Ik gebruik
> ASP/vb
>
> Ik kon geen voorbeeld vinden en heb daarom geprobeerd zelf wat te
> schrijven, maar het werkt helaas nog niet helemaal.
>
> Ik definieer eerst de variabele, hier verander ik het geboortejaar in
> het huidige jaar zodat ik met het huidige jaar kan vergelijken. Mij
> leek het makkelijkste om dan gewoon als volgt te doen:
>
> stel geboortedatum is 23-3-1979, dit wordt dan 23-3-2003 en dan:
> als 23-3-2003 tussen 21-3-2003 en 19-4-2003 dan
> response.write Ram
>
> Nu is er in ASP geen "between" om tussen datums te kijken daarom had
> ik het onderstaande bedacht maar dat werkt niet. Ik hoop dat iemand
> mij verder kan helpen.
>
> Pim
>
>
> de variabelen:
> <% dim varbDay
> varbDay = day(P.Fields.Item("M_DOB").Value)
> %>
> <% dim varbMonth
> varbMonth = month(P.Fields.Item("M_DOB").Value)
> %>
> <% dim varbYear
> varbYear = year(date)
> %>
> <% dim varb
> varb = varbDay&"-"&varbMonth&"-"&varbYear
> %>
>
> de code om het sterrenbeeld te laten zien:
> <% if varb >= 1-1-varbYear and varb <= 19-1-varbYear then
> response.write"steenbok"
> elseif varb >= 20-1-varbYear and varb <= 18-2-varbYear then
> response.write"waterman"
> elseif varb >= 19-2-varbYear and varb <= 20-3-varbYear then
> response.write"vissen"
> elseif varb >= 21-3-varbYear and varb <= 19-4-varbYear then
> response.write"ram"
> elseif varb >= 20-4-varbYear and varb <= 20-5-varbYear then
> response.write"stier"
> elseif varb >= 21-5-varbYear and varb <= 21-6-varbYear then
> response.write"tweeling"
> elseif varb >= 22-6-varbYear and varb <= 22-7-varbYear then
> response.write"kreeft"
> elseif varb >= 23-7-varbYear and varb <= 22-8-varbYear then
> response.write"leeuw"
> elseif varb >= 23-8-varbYear and varb <= 22-9-varbYear then
> response.write"maagd"
> elseif varb >= 23-9-varbYear and varb <= 23-10-varbYear then
> response.write"weegschaal"
> elseif varb >= 24-10-varbYear and varb <= 21-11-varbYear then
> response.write"schorpioen"
> elseif varb >= 22-11-varbYear and varb <= 31-12-varbYear then
> response.write"steenbok"
> end if %>

Een uitdrukking zoals
varb >= 22-11-varbYear
wordt door ASP verkeerd begrepen.
22-11-varbYear geeft als resultaat: -1992 en helemaal niet de datum die jij
verwacht.

Probeer eens iets in de volgende trant:

CDate(varb)>=CDate("22-11-" & varbYear)

Vergeet ook niet Session.LCID op 1043 (Dutch) te zetten, anders worden je
datums
op de Amerikaanse wijze geïnterpreteerd (mm-dd-yyyy).

--

Sam Mildener

"Sam Mildener" <nospam@hotmail.com> wrote in
news:tV4ta.4154$dL5.720031912@hestia.telenet-ops.be:


>
> Probeer eens iets in de volgende trant:
>
> CDate(varb)>=CDate("22-11-" & varbYear)
>
>
> Sam Mildener
>


Bedankt! Werkt prima zo!

Pim