![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Sub sayiuret()
dim a, b, c, d, e, f, g, h as integer
a = Now()
b = Mid(a, 1, 2)
c = Mid(a, 4, 2)
d = Mid(a, 7, 4)
e = Mid(a, 12, 2)
f = Mid(a, 15, 2)
g = Mid(a, 18, 2)
h = b & c & d & e & f & g
End Sub
Dikkat edilirse değişkenlere tarih ve saat değerlerini aralarındaki iki nokta ve tek nokta değerlerini pas geçerek alıyoruz. Önce a değişkenine tarih ve saat değeri atanıyor. Daha sonra a değişkeninde yer alan ve formatı 17.10.2013 01:19:53 biçiminde olan değerler mid komutuyla elenerek, nokta işaretleri alınmadan 17102013011953 biçimine dönüştürülür. Ben bu fonksiyonu 2008 yılında bir üretim programı için hazırlamıştım. Hala da işe yarar
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Bu arada negatif değerlerden bahsetmişken, mevcut yapınızdaki o negatif değerleri aşağıdaki şekilde pozitife döndürebilirsiniz. Bunun için abs(sayi) şeklinde bir kod kullanmalısınız. Mesela -50 için Abs(sayi) komutunu kullanırsanız değer 50 olur. Bunu da bir kenara yazalım
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Kolay gelsin.