Public Shared Function String2Array(ByVal Text As String, Optional ByVal _
      Einzelschritt As Integer = 1) As String()
        If Einzelschritt < 1 Then Einzelschritt = 1
        If Einzelschritt > Text.Length Then Einzelschritt = Text.Length - 1
 
        Dim ap As Integer = ((Text.Length) Mod Einzelschritt)
 
        If ap <> 0 Then
 
            For i As Integer = 0 To ap
                Text &= " "
            Next
 
        End If
 
        Dim Arr(CInt(Text.Length / Einzelschritt) - 1) As String
 
        Dim j As Integer = 0
        For i As Integer = 0 To Arr.Length - 1
 
            Arr(i) = Text.Substring(j, Einzelschritt)
            j += Einzelschritt
 
        Next
 
        Return Arr
    End Function

Ahnungsloser ahnungsloser...

Dim dblResult1 As Double = Nothing
Dim dblResult2 As Double = Nothing
dblResult1 = Value / Diffident
dblResult2 = Microsoft.VisualBasic.Fix(dblResult1)
 
If dblResult1 = dblResult2 Then
'Code für kein Rest einfügen
Else
'Code für Rest einfügen
End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

    Public Shared Function String2Array(ByVal Text As String, Optional ByVal _
      Einzelschritt As Integer = 1) As String()
        If Einzelschritt < 1 Then Einzelschritt = 1
        If Einzelschritt > Text.Length Then Einzelschritt = Text.Length
 
        Do Until ((Text.Length) Mod Einzelschritt) = 0
            Text &= " "
        Loop
 
        Dim Arr(CInt(Text.Length / Einzelschritt) - 1) As String
 
        Dim j As Integer = 0
        For i As Integer = 0 To Arr.Length - 1
 
            Arr(i) = Text.Substring(j, Einzelschritt)
            j += Einzelschritt
 
        Next
 
        Return Arr
    End Function

Ahnungsloser ahnungsloser...

  ''' <summary>Text in eine Liste von Teilstrings aufspalten</summary>
  ''' <param name="text">aufzuspaltender Text</param>
  ''' <param name="elementlength">Länge der Teilstrings</param>
  ''' <returns>Liste der Teilstrings</returns>
  Private Function SplitText(ByVal text As String, _
        ByVal elementlength As Integer) As List(Of String)
 
        If String.IsNullOrEmpty(text) Then
            Throw New ArgumentException("Text fehlt")
        End If
 
        If elementlength < 1 Or text.Length < elementlength Then
            Throw New ArgumentException("Elementlänge unplausibel")
        End If
 
        'einmaliges Anhängen 
        If text.Length Mod elementlength > 0 Then
            text &= StrDup(elementlength, " ")
        End If
 
        Dim elements As New List(Of String)
 
        'Step-Weite regelt das Schleifenende
        For i As Integer = 0 To text.Length - elementlength Step elementlength
            elements.Add(text.Substring(i, elementlength))
        Next i
 
        Return elements
    End Function

 Dim ap As Integer = Text.Length Mod Einzelschritt
 If ap <> 0 Then
     Text = Text.PadRight(Text.Length + Einzelschritt - ap)
 End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist