Tarih yazdırma

Tarih yazdırma


Dim d2 As String

Dim m2 As String

Dim y4 As String



Tarih = Now

d2 = DatePart("d", Tarih)

m2 = DatePart("m", Tarih)

y4 = DatePart("yyyy", Tarih)

DT.Text = d2 - 1 & "." & m2 & "." & y4

TT.Text = d2 & "." & m2 & "." & y4