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 %>