Hallo ATLAN !
Hier die Beschreibung meines Problems, vielleicht kannst Du dir etwas vorstellen.
Option Explicit
Dim Tag As Integer
Dim Monat As Integer
Dim Jahr As Integer
Dim Stunde As Integer
Dim Minute As Integer
Dim Sekunde As Integer
Dim parameter As String
' das aufrufende pgm. übergibt einen parameter mit
' folgendem Inhalt:
' Spalte 01-08 TT.MM.JJ
' 09-16 hh:mm:ss
' ich möchte nun auf jedes Feld einzeln zugreifen können
' also JJ, MM, TT, hh, mm und ss um die Felder einzeln
' auf bestimmte Inhalte zu prüfen.
'
' in PL/1 würde dies so aussehen:
'
' dcl parameter char(16);
' dcl 1 parm_struc based(addr(Parameter)),
' 2 struc_tag char(2),
' ......
' 2 struc_sekunde char(2);
'
' gibt es so etwas ähnliches in VB5 ???
Private Sub Form_Load()
parameter = Command()
Tag = struc_tag
If Tag > 31 Then
'Fehlermeldung
End If
' usw.
End Sub
MfG
Nordbahnfredi
|