116 lines
2.9 KiB
QBasic
116 lines
2.9 KiB
QBasic
Attribute VB_Name = "modGeneral"
|
|
'==============================================================================
|
|
'
|
|
' File : General.bas
|
|
' Date : 31.03.1999
|
|
' Version: 1.00
|
|
' Author : Andreas Schmidt, lindner&partner
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' Diverse Hilfsmethoden
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' History:
|
|
'
|
|
' Date : 31.03.1999
|
|
' Version: 1.00
|
|
' Author : Andreas Schmidt, lindner&partner
|
|
'
|
|
' Erste Version.
|
|
'
|
|
'==============================================================================
|
|
|
|
|
|
Global Const DEZIMALTRENNER$ = ","
|
|
Global Const TAUSENDERSTELLE$ = "."
|
|
Global Const TAUSENDER_VERWENDEN = True
|
|
|
|
Public Function stringToInt(sInput As String) As Integer
|
|
Dim i As Integer
|
|
Dim s As String
|
|
|
|
' Alle Punkte, Buchstaben etc. entfernen
|
|
For i = 1 To Len(sInput)
|
|
If IsNumeric(Mid$(sInput, i, 1)) Then
|
|
s = s + Mid$(sInput, i, 1)
|
|
End If
|
|
Next i
|
|
|
|
stringToInt = Val(s)
|
|
End Function
|
|
|
|
Public Function stringToLong(sInput As String) As Long
|
|
Dim i As Integer
|
|
Dim s As String
|
|
|
|
' Alle Punkte, Buchstaben etc. entfernen
|
|
For i = 1 To Len(sInput)
|
|
If IsNumeric(Mid$(sInput, i, 1)) Then
|
|
s = s + Mid$(sInput, i, 1)
|
|
End If
|
|
Next i
|
|
|
|
stringToLong = Val(s)
|
|
End Function
|
|
|
|
' String-Wert in ein Double konvertieren.
|
|
'
|
|
' @param s String der Form "99.999,99"
|
|
'
|
|
' @return double-Wert
|
|
'
|
|
Public Function stringToDouble(sInput As String)
|
|
Dim i As Integer
|
|
Dim nDecPos As Integer
|
|
Dim s As String
|
|
|
|
' Alle Punkte, Buchstaben etc. bis auf den
|
|
' Dezimaltrenner entfernen
|
|
For i = 1 To Len(sInput)
|
|
If IsNumeric(Mid$(sInput, i, 1)) Or _
|
|
Mid$(sInput, i, 1) = DEZIMALTRENNER _
|
|
Then
|
|
s = s + Mid$(sInput, i, 1)
|
|
End If
|
|
Next i
|
|
|
|
' Wir merken uns die Stelle, an der das Komma
|
|
' als Dezimaltrenner steht
|
|
nDecPos = InStr(1, s, DEZIMALTRENNER)
|
|
If nDecPos > 0 Then
|
|
s = Left$(s, nDecPos - 1) + "." + Mid$(s, nDecPos + 1)
|
|
End If
|
|
|
|
stringToDouble = Val(s)
|
|
End Function
|
|
|
|
' Integer-Value in einen String umwandeln.
|
|
'
|
|
' @param d Ausgangswert
|
|
' @param sFormat Format-String (siehe VB Format$())
|
|
'
|
|
Public Function intToString(i As Integer, sFormat As String)
|
|
intToString = Format$(i, sFormat)
|
|
End Function
|
|
|
|
' Long-Value in einen String umwandeln.
|
|
'
|
|
' @param d Ausgangswert
|
|
' @param sFormat Format-String (siehe VB Format$())
|
|
'
|
|
Public Function longToString(l As Long, sFormat As String)
|
|
longToString = Format$(l, sFormat)
|
|
End Function
|
|
|
|
' Double-Value in einen String umwandeln.
|
|
'
|
|
' @param d Ausgangswert
|
|
' @param sFormat Format-String (siehe VB Format$())
|
|
'
|
|
Public Function doubleToString(d As Double, sFormat As String)
|
|
doubleToString = Format$(d, sFormat)
|
|
End Function
|
|
|