Vraag : Zet in een SQL functie om

Ik moet een functie VBA in SQL de functie van de Server omzetten. Gelieve te helpen me sparen 2 werkuren:
" codeBody "
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
tik van de Public Functie (Px als Dubbel) als Schemerige intTicks van het Koord als Geheel Schemerige strTicks als Koord Schemerige intHandl als Geheel Schemerige intEights als Geheel Schemerige intSign als Geheel Als Px < 0 toen intSign = -1 Anders intSign = 1 Eind als Px = intSign * Px intHandl = Int. (Px) intTicks = Int. ((Px - intHandl) * 32) intEights = CInt (((Px - intHandl) * 32 - intTicks) * 8) Als intSign < 0 toen intHandl = „-“ & intHandl Eind als Als intTicks < 10 toen strTicks = „0“ & intTicks Eind als Tik = intHandl & „-“ & strTicks & „: “ & intEights De Functie van het eind

Antwoord : Zet in een SQL functie om

Dit werkt niet precies aangezien u het hebt, aangezien het afhangt van of u intEights omhoog wilt afronden of ronde

Ik heb het die afrondt, en de functie heeft hierboven het die omhoog rond maakt. Het kan gemakkelijk worden veranderd.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
CRE�ëR de Tik van de FUNCTIE (
  @px GELD
) WINST VARCHAR (20) ZOALS BEGINNEN

  VERKLAAR @RESULT    VARCHAR (20)
  VERKLAAR @INTTICKS  GEHEEL
  VERKLAAR @STRTICKS  VARCHAR (10)
  VERKLAAR @INTHANDL  GEHEEL
  VERKLAAR @INTEIGHTS GEHEEL
  VERKLAAR @INTSIGN   GEHEEL

  
  PLAATS @INTSIGN = COMPUTER-AIDED SOFTWARE ENGINEERING WANNEER @PX  < 0="" THEN="" -1="" ELSE="" 1="" END="" SET="">
           
Andere oplossingen  
 
programming4us programming4us