Domino 9 und frühere Versionen > Entwicklung

Lizenzkey

<< < (2/4) > >>

eknori:
habe die erste "Funktion" mal ein wenig "optimiert"  ;D

Function genlc(lct As String)
   lctfertig = Replace(Right(lct,8)," ","0")   
End Function

und jetzt gebe ich die beiden Funktionen mal unserem Azubi  ;D

eknori:
nur der guten Ordnung halber habe ich die zweite Funktion auch mal re-coded

Function getbz(bt As String )As Integer
   Dim i As Integer
   getbz = 27
   sString ="abcdefghijklmnopqrstuvwxyz"
   i = Instr(sString, bt)   
   If Not i = 0 Then
      getbz = i
   End If
End Function

Glombi:
Ulrich, Du hast heute am Freitag wohl Langeweile  ;D
Was macht denn SAP - läuft das etwa  :o ;D

Andreas

eknori:
ne, TA SBWP macht Ärger; SAP ist schon auf dem System

fritandr:

--- Zitat von: eknori am 03.12.04 - 13:57:11 ---ne, TA SBWP macht Ärger; SAP ist schon auf dem System

--- Ende Zitat ---

Hab da grad mal was im Internet zu gefunden. Ich find's ganz nett gemacht.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete