Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Virgülü "," Noktaya "." Dönüştür

ozkovlu29
ozkovlu29
Çöp Kutusu
2
1403

Virgülü "," Noktaya "." Dönüştür

Question #1
ozkovlu29
Aktif Üye
ozkovlu29
Bul
Aktif Üye
Adı Soyadı: Ba.... Çİ....
Yaşı: 39
Konum: Gümüşhane
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 29/08/2019,08:35
Yorumları: 92
Konuları: 39
Kayıt Tarihi: 09/08/2016
Teşekkür Puanı: 0
Merhabalar;

Ekteki dosyada Ücret tutarı ve İkramiye tutarını girdikten sonra xml dosyasına çevirince virgülü noktaya çevirmiyor. Buradaki hata ne olabilir.
.zip xls2xmly.zip (Dosya Boyutu: 57,37 KB | İndirme Sayısı: 8)
Cevapla
#2
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Bugün,21:13
Yorumları: 3.594
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.047
Mesleğiniz: Yazılım
excelden pek anlamam ama 
şu kodları bir deneyin

 Dim aaa As String
If aaa <> "" Then
                aaa = PEK.Replace(",", ".")
       
       Else
       End If
Cevapla
#3
ozkovlu29
Aktif Üye
ozkovlu29
Bul
Aktif Üye
Adı Soyadı: Ba.... Çİ....
Yaşı: 39
Konum: Gümüşhane
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 29/08/2019,08:35
Yorumları: 92
Konuları: 39
Kayıt Tarihi: 09/08/2016
Teşekkür Puanı: 0
Merhaba C*e*l*o*y*c*e ;
İlginiz için Teşekkür ederim. Fakat,
Aşağıdaki kod Excel dosyasının içeriğinde var, ancak çalışmıyor.
PEK = 0
       'MsgBox Val(PRIM_UCRET)
       If (IsNumeric(PRIM_UCRET)) Then
         PEK = PEK + Val(PRIM_UCRET)
       End If
       If (IsNumeric(PRIM_IKRAMIYE)) Then
         PEK = PEK + Val(PRIM_IKRAMIYE)
       End If
       PEK = Replace(PEK, ",", ".")
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task