Witam mam pytanie jak rozłożyć zmienną Integer np. 296 na pojedyńcze cyfry abym mógł je zapisać w zmiennej byte (2,9,6) czy jest może jakaś prosta komenda?
za odp dziekuje
za odp dziekuje
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tamDim A As Integer , C1 As Byte , C2 As Byte , C3 As Byte , C4 As Byte , C5 As Byte
Dim Temp As Integer , Znak As Bit
A = -31945
If A < 0 Then
Znak = 1
A = Abs(a)
else
znak = 0
End If
Temp = A \ 10000
C1 = Temp
Temp = A Mod 10000
Temp = Temp \ 1000
C2 = Temp
Temp = A Mod 1000
Temp = Temp \ 100
C3 = Temp
Temp = A Mod 100
Temp = Temp \ 10
C4 = Temp
Temp = A Mod 10
C5 = Temp