Hallo,
Ik heb een probleem met een Boolean vergelijking die voorheen werkte maar zonder aanpassingen nu niet meer werkt. Hoe iets eenvoudigs een kwelling kan zijn.
Als sStatus1a en sStatus1b allebei <0> zijn dan is waarde van sStatusTotal1 <Waar>, dat kan toch niet. De oorspronkelijke setting van sStatusTotal1 was ook Integer maar dat werkte niet en dan <sStatusTotal1 = 1>. Wat zie ik over het hoofd, wat kan ik doen? Doet de onderliggende Interperter vervelend?
Ik heb een probleem met een Boolean vergelijking die voorheen werkte maar zonder aanpassingen nu niet meer werkt. Hoe iets eenvoudigs een kwelling kan zijn.
Code:
Dim sStatus1a As Integer
Dim sStatus1b As Integer
Dim sStatusTotal1 As Boolean
MsgBox sStatus1a
MsgBox sStatus1b
If sStatus1a And sStatus1b <> 0 Then
sStatusTotal1 = True
End if
MsgBox sStatusTotal1
Als sStatus1a en sStatus1b allebei <0> zijn dan is waarde van sStatusTotal1 <Waar>, dat kan toch niet. De oorspronkelijke setting van sStatusTotal1 was ook Integer maar dat werkte niet en dan <sStatusTotal1 = 1>. Wat zie ik over het hoofd, wat kan ik doen? Doet de onderliggende Interperter vervelend?