Frage : Bekehrter zu einer SQL-Funktion

Ich muss eine VBA Funktion in SQL-Serverfunktion umwandeln. Mir außer 2 Stunden Arbeit bitte helfen: 
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:

Public Funktions-Häckchen (Px als Doppeltes) als Schnur schwache intTicks als ganze Zahl
Schwache strTicks als Schnur
Schwaches intHandl als ganze Zahl
Schwache intEights als ganze Zahl
Schwaches intSign als ganze Zahl
    Wenn Px < 0 dann
      intSign = -1
    Sonst
      intSign = 1
    Beenden wenn

    Px = intSign * Px
    
    intHandl = Int (Px)
    intTicks = Int ((Px - intHandl) * 32)
    intEights = CInt (((Px - intHandl) * 32 - intTicks) * 8)
    Wenn intSign < 0 dann
        intHandl = „-“ u. intHandl
    Beenden wenn
    Wenn intTicks < 10 dann
        strTicks = „0“ u. intTicks
    Beenden wenn
    
    Häckchen = intHandl u. „-“ u. strTicks u. „: “ u. intEights
Enden-Funktion

Antwort : Bekehrter zu einer SQL-Funktion

Dieses arbeitet nicht genau, da Sie es haben, da es an abhängt, ob Sie die intEights oben runden wünschen oder unten runden

Ich habe es, unten zu runden, und die oben genannte Funktion hat es, oben zu runden. Sie kann leicht geändert werden.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

FUNKTION Häckchen VERURSACHEN (
  @px GELD
) RÜCKKEHR VARCHAR (20) WIE ANFANGEN

  @RESULT VARCHAR    (20) ERKLÄREN
  @INTTICKS GANZE ZAHL  ERKLÄREN
  @STRTICKS VARCHAR  ERKLÄREN (10)
  @INTHANDL GANZE ZAHL  ERKLÄREN
  @INTEIGHTS GANZE ZAHL ERKLÄREN
  @INTSIGN GANZE ZAHL   ERKLÄREN

  
  @INTSIGN = FALL EINSTELLEN WENN @PX  < 0="" THEN="" -1="" ELSE="" 1="" END="" SET="">
Weitere Lösungen  
 
programming4us programming4us