title image


Smiley Re: Lotusscript und Format-Funktion
Nein ich möchte gerne die NotesID in eine String zurückgeben, da man dies besser lesen kann.Ich habe mir jetzt folgende Funktion geschrieben die das ganze dann so macht wie ich es haben will:Function formatNoteID (strNoteid As String) As String If Not Instr(strNoteid,"NT")>0 Then If Len(strNoteid)=0 Then formatNoteID = "" Elseif Len(strNoteid)=1 Then formatNoteID = "NT" & Ustring(7,"0") & strNoteid Elseif Len(strNoteid)=2 Then formatNoteID = "NT" & Ustring(6,"0") & strNoteid Elseif Len(strNoteid)=3 Then formatNoteID = "NT" & Ustring(5,"0") & strNoteid Elseif Len(strNoteid)=4 Then formatNoteID = "NT" & Ustring(4,"0") & strNoteid Elseif Len(strNoteid)=5 Then formatNoteID = "NT" & Ustring(3,"0") & strNoteid Elseif Len(strNoteid)=6 Then formatNoteID = "NT" & Ustring(2,"0") & strNoteid Elseif Len(strNoteid)=7 Then formatNoteID = "NT0" & strNoteid Elseif Len(strNoteid)=8 Then formatNoteID = "NT" & strNoteid Else formatNoteID = "?" End If Else formatNoteID = strNoteid End If End Function


Viele Grüße

Christian



Feel free to visit:
www.cwhp.de
www.3dspots.de


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: