funktion i en IF sats?

8 svar · 296 visningar · startad av Bjarne A 30 maj 2003

Bjarne AMedlem sedan feb. 2001151 inlägg

Frågan30 maj 2003 20:34#1

Kan man inte köra denna funktionen under vissa förutsättningar
dvs:

<%
function color(dagen)
If dagen = WeekDayName(WeekDay(Date)) then color="#9999FF" else color="#CCCCCC"
End Function
%>

inbakat i en annan IF SATS

typ

<%
Dim veckansnummer
veckansnummer = DatePart("ww", Date, 2, 2)
%>

<%
IF veckansnummer = 22 THEN här kör man funktionen
ELSE här måste man "glömma" function color(dagen) annars blir alla restrerande dagar i kalendariumet den aktiva färgen
%>

Kan någon få ihop detta eller går det inta att glömma en funktion?

SebbeMedlem sedan jan. 20032 285 inlägg

30 maj 2003 20:38#2

Det är väl bara att göra så här?

<%
If veckansnummer = 22 Then
  fColor = color("tisdag")
End If
%>

Då körs ju aldrig funktionen om inte villkoret uppfylls.

Bjarne AMedlem sedan feb. 2001151 inlägg

30 maj 2003 21:04#3

Jag fattade inte det där med

fColor = color("tisdag")

Måste ju ha ín den översta av mina kodsnuttar i en annan IF sats och den innehåller ju IF, then och else så det tokar till sig
sedan får "dagen" dagens namn och det måste man få servern att glömma i den fortsatta koden annars får restrerande dagar i koden samma färg

använder "dagen till att färga dagens cell enligt nedan


  <tr> 
    <td bgcolor="#FFFFFF" width="50">&nbsp;</td>
    <td width="100" bgcolor="<% =color("måndag") %>"><%= RS("mandag")%></td>
    <td width="100" bgcolor="<% =color("tisdag") %>"><%= RS("tisdag")%></td>
    <td width="100" bgcolor="<% =color("onsdag") %>"><%= RS("onsdag")%></td>
    <td width="100" bgcolor="<% =color("torsdag") %>"><%= RS("torsdag")%></td>
    <td width="100" bgcolor="<% =color("fredag") %>"><%= RS("fredag")%></td>
    <td width="100" ><%= RS("ovrigt")%></td>

  </tr

SebbeMedlem sedan jan. 20032 285 inlägg

30 maj 2003 21:08#4

Jag tycker att det borde funka fint med den där koden du använder nu!
Jag fattar inte vad det är du vill göra med din If-sats du vill lägga in?

Bjarne AMedlem sedan feb. 2001151 inlägg

30 maj 2003 21:20#5

Jag har en kalender med terminens veckor, och i aktuell vecka som tas fram från servern skall cellen för dagens dag vara i en annan färg

då kollar jag om det är rätt vecka, och då skall funktionen kopplas på

Sedan skall nästa vecka i kalendern inte ha någon markerad cell men då har ju redan funktionen givit "dagen" ett namn som skall fås bort

Skulle kunna klistra in hela min kalenderkod men jag har testat och testat så den är det rörigaste som finns :-S men kul :-)

SebbeMedlem sedan jan. 20032 285 inlägg

30 maj 2003 21:27#6

Menar du så här?

<% If veckansnummer = 22 Then %>
<tr> 
  <td bgcolor="#FFFFFF" width="50"> </td>
  <td width="100" bgcolor="<% =color("måndag") %>"><%= RS("mandag")%></td>
  <td width="100" bgcolor="<% =color("tisdag") %>"><%= RS("tisdag")%></td>
  <td width="100" bgcolor="<% =color("onsdag") %>"><%= RS("onsdag")%></td>
  <td width="100" bgcolor="<% =color("torsdag") %>"><%= RS("torsdag")%></td>
  <td width="100" bgcolor="<% =color("fredag") %>"><%= RS("fredag")%></td>
  <td width="100"><%= RS("ovrigt")%></td>
</tr>
<% Else %>
<tr> 
  <td bgcolor="#FFFFFF" width="50"> </td>
  <td width="100" bgcolor="#CCCCCC"><%= RS("mandag")%></td>
  <td width="100" bgcolor="#CCCCCC"><%= RS("tisdag")%></td>
  <td width="100" bgcolor="#CCCCCC"><%= RS("onsdag")%></td>
  <td width="100" bgcolor="#CCCCCC"><%= RS("torsdag")%></td>
  <td width="100" bgcolor="#CCCCCC"><%= RS("fredag")%></td>
  <td width="100"><%= RS("ovrigt")%></td>
</tr>
<% End If %>

Bjarne AMedlem sedan feb. 2001151 inlägg

30 maj 2003 21:34#7

Ja just det ... det tänkte jag inte på att köra hela tabellen i en if sats var så inställd på att försöka få till olika värden fram och tillbaka
Tack tack

solbulleMedlem sedan mars 20015 287 inlägg

31 maj 2003 14:20#8

Jag ser inte heller riktigt problem med att göra en funktion av det, fungerar inte detta?

<%
function color(dagen)
	IF veckansnummer = 22 THEN 
		If dagen = WeekDayName(WeekDay(Date)) then color="#9999FF" else color="#CCCCCC"
	Else
		color="#CCCCCC"
	End Id
End Function
%>

  <tr> 
    <td bgcolor="#FFFFFF" width="50"> </td>
    <td width="100" bgcolor="<% =color("måndag") %>"><%= RS("mandag")%></td>
    <td width="100" bgcolor="<% =color("tisdag") %>"><%= RS("tisdag")%></td>
    <td width="100" bgcolor="<% =color("onsdag") %>"><%= RS("onsdag")%></td>
    <td width="100" bgcolor="<% =color("torsdag") %>"><%= RS("torsdag")%></td>
    <td width="100" bgcolor="<% =color("fredag") %>"><%= RS("fredag")%></td>
    <td width="100" ><%= RS("ovrigt")%></td>

  </tr

Kanske ska du då ta med veckan som argument så kanske funktionen blir mer användbar.

SebbeMedlem sedan jan. 20032 285 inlägg

31 maj 2003 14:38#9

Eller så kanske man till och med kan göra såhär?

<%
Function color(dagen)
  If veckansnummer = DatePart("ww", Date) Then 
    If dagen = WeekDayName(WeekDay(Date)) Then
      color = "#9999FF"
    Else
      color = "#CCCCCC"
    End If
  Else
    color = "#CCCCCC"
  End If
End Function
%>

<tr> 
  <td bgcolor="#FFFFFF" width="50"> </td>
  <td width="100" bgcolor="<% =color("måndag") %>"><%= RS("mandag")%></td>
  <td width="100" bgcolor="<% =color("tisdag") %>"><%= RS("tisdag")%></td>
  <td width="100" bgcolor="<% =color("onsdag") %>"><%= RS("onsdag")%></td>
  <td width="100" bgcolor="<% =color("torsdag") %>"><%= RS("torsdag")%></td>
  <td width="100" bgcolor="<% =color("fredag") %>"><%= RS("fredag")%></td>
  <td width="100" ><%= RS("ovrigt")%></td>
</tr>