Değişkenden sayıları almak

[k0081]

Merhaba arkadaşlar;

syfadt = "1-9-21"

( ilk: 1 ikinci: 9 sonuncu: 21 )

ilkrkm = Left(syfadt, 1) '1
ikinrkm = Left(Mid(syfadt, 3), 1) '9
SonRkm = Right(syfadt, 2) '21

bu şekilde sayıları değişkenlere alıyorum. Fakat şöyle bir durum var, sayıların basamak değeri değiştiğinde kod düzgün çalışmıyor...

şöyle;

syfadt = "11-19-1"
syfadt = "120-1-6"
syfadt = "150-180-210"

"-" işareti olmadan ilk, ikinci,sonuncu sayıları değişkenlere nasıl alabilirim ?

 

[Murat OSMA]

Split kullanın.

[SIZE="2"]Sub Emre()
    syfadt = "1-9-21"
    ayır = [COLOR="Red"]Split[/COLOR](syfadt, "-")
    ilkrkm = ayır([COLOR="red"]0[/COLOR])
    ikinrkm = ayır([COLOR="red"]1[/COLOR])
    SonRkm = ayır([COLOR="red"]2[/COLOR])
End Sub[/SIZE]

 

[k0081]

Murat hocam;

Çok Teşekkür ediyorum , Tamamdır.. Elinize sağlık

 

[Murat OSMA]

Rica ederim, iyi günler.​

 

[k0081]

Hocam bir durum daha var yine bu konuyla ilgili ;

syfadt = "1-9-21"

burada 9-21 arasındaki sayılardan ilk ve sonuncu rakamı nasıl alabilirim ?


istenen
------------

ilkA=10

SonA=20

 

[Murat OSMA]

Çok zor bir soru sordunuz, çalışmadığım yerden geldi.
Düşünüp size dönüş yaparım. :dusun:

İyi günler.​

 

[k0081]

Hocam bende önceki kodlara baktım da benzer bir uygulama bulamadım..

 

[tahsinanarat]

Nerde nasıl kullandığının örnek dosyası

Merhaba arkadaşlar;

syfadt = "1-9-21"

( ilk: 1 ikinci: 9 sonuncu: 21 )

ilkrkm = Left(syfadt, 1) '1
ikinrkm = Left(Mid(syfadt, 3), 1) '9
SonRkm = Right(syfadt, 2) '21

bu şekilde sayıları değişkenlere alıyorum. Fakat şöyle bir durum var, sayıların basamak değeri değiştiğinde kod düzgün çalışmıyor...

şöyle;

syfadt = "11-19-1"
syfadt = "120-1-6"
syfadt = "150-180-210"

"-" işareti olmadan ilk, ikinci,sonuncu sayıları değişkenlere nasıl alabilirim ?

örnek bir dosya ekleyebilirmisiniz, sn.murat osmanın verdiği kodlarını kullanacağın örnek dosya teşekkerler

 

[k0081]

Örnek dosya yok. Sadece değişkenlere veri alınacak...

 

[tahsinanarat]

Sn. k0081 dönüş yaptığın için teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Murat beyin verdiği cevapta parçalanmış veriden istediğiniz sonuca gidebilirdiniz.

Sub Emre()
    syfadt = "1-9-21"
    ayır = Split(syfadt, "-")
    ilkrkm = ayır(0)
[COLOR="Red"]    ikinrkm = ayır(1) - 1
    SonRkm = ayır(2) - 1
[/COLOR]End Sub

 

[k0081]

Korhan Ayhan

syfadt = "1-9-21"
    ayır = Split(syfadt, "-")
    ilkrkm = ayır(0)
    ikinrkm = ayır(1) [COLOR="Red"]+[/COLOR] 1
    SonRkm = ayır(2) - 1

Hocam çok teşekkür ediyorum. - 1, SonRkm için evet.. Fakat ikinci rakam için + yaptığımda işlemden tam sonuç aldım..

Yardımcı arkadaşlara çok teşekkür ediyorum.

****************
syfadt = "2-36-36"

bu şekilde olduğunda hata alıyorum..

ikinciRkm=0
SonRkm=0

olması gerekiyordu..

 

[Korhan Ayhan]

IF ile verileri sorgulayın. Eşitlik yoksa +1 ya da -1 işlemini yapın.

 

[k0081]

IF ile verileri sorgulayın. Eşitlik yoksa +1 ya da -1 işlemini yapın.

Anladım. Teşekkürler.. deniyorum..