ЕК
Елена Кузнецова
VB 6.0 D=....Заранее спасибо
Dim D,S As String
S=«7618»
D=«3»
If Val (Right(S,2))<50 Then D=D+ «1» Else D=D+ «2»
If Val (Left(S,2))<50 Then D=D+ «3» Else D=D+ «4»
If Val (Mid(S,2,2))<50 Then D=D+ «5» Else D=D+ «6»
If InSet (1,S, «3»))<3 Then D=D+ «7» Else D=D+ «8»
Dim D,S As String
S=«7618»
D=«3»
If Val (Right(S,2))<50 Then D=D+ «1» Else D=D+ «2»
If Val (Left(S,2))<50 Then D=D+ «3» Else D=D+ «4»
If Val (Mid(S,2,2))<50 Then D=D+ «5» Else D=D+ «6»
If InSet (1,S, «3»))<3 Then D=D+ «7» Else D=D+ «8»