Skip to main content

AccessTr.neT


Üst Onluğa Yuvarla

Üst Onluğa Yuvarla

#5
MsgBox Int(CLng(Mid(Me.Barkod, 2, 1)) + CLng(Mid(Me.Barkod, 4, 1)) + CLng(Mid(Me.Barkod, 6, 1)) + CLng(Mid(Me.Barkod, 8, 1)) + CLng(Mid(Me.Barkod, 10, 1)) + CLng(Mid(Me.Barkod, 12, 1))) * 3 + CLng(Mid(Me.Barkod, 1, 1)) + CLng(Mid(Me.Barkod, 3, 1)) + CLng(Mid(Me.Barkod, 5, 1)) + CLng(Mid(Me.Barkod, 7, 1)) + CLng(Mid(Me.Barkod, 9, 1)) + CLng(Mid(Me.Barkod, 11, 1))
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Üst Onluğa Yuvarla - Yazar: husem - 15/06/2022, 19:50
RE: Üst Onluğa Yuvarla - Yazar: berduş - 15/06/2022, 19:54
RE: Üst Onluğa Yuvarla - Yazar: husem - 15/06/2022, 20:04
RE: Üst Onluğa Yuvarla - Yazar: berduş - 15/06/2022, 20:11
RE: Üst Onluğa Yuvarla - Yazar: husem - 15/06/2022, 20:12
RE: Üst Onluğa Yuvarla - Yazar: berduş - 15/06/2022, 20:12
RE: Üst Onluğa Yuvarla - Yazar: husem - 15/06/2022, 20:15
RE: Üst Onluğa Yuvarla - Yazar: berduş - 15/06/2022, 20:34
Task