Bu yazıda, negatif dizeleri tamsayıya dönüştürmek için özel bir işlev oluşturacağız.
Bu makale için ham veriler, bir eksi işareti (-) ile takip edilen dizelerden oluşur.
Bu dizeleri tam sayılara dönüştürmek istiyoruz.
Mantıksal açıklama
Bu makalede, dizeyi tamsayıya dönüştürmek için özel işlevli ConvertNegNumbers oluşturduk. Bu fonksiyon girdi olarak string değeri alır ve çıktı olarak tamsayı döndürür.
Kod açıklaması
Sağ(Var, 1) = "-"
Yukarıdaki kod, dizenin son karakterinin eksi işaretine (-) eşit olup olmadığını kontrol etmek için kullanılır.
ConvertNegNumbers = CInt("-" & Left(Var, Len(Var) - 1))
Yukarıdaki kodda, sol işlev, sonuncusu hariç, dizedeki tüm karakterleri çıkarmak için kullanılır. CInt işlevi, dize değerini tamsayıya dönüştürmek için kullanılır.
Lütfen kod için aşağıdan takip edin
Seçenek Açık İşlev ConvertNegNumbers(Var As String) 'Dizedeki son karakterin eksi(-) olup olmadığını kontrol etme If Right(Var, 1) = "-" Sonra 'Dize değerini negatif tamsayıya dönüştürme ConvertNegNumbers = CInt("-" & Left (Var, Len(Var) - 1)) Else 'Dize değerini tam sayıya dönüştürme ConvertNegNumbers = CInt(Var) End If End Function
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın