Tarih saat formatı

[yavuz829]

Arkadaşlar aşağıdaki kodlarla TextBox ları tarih ve saat formatına çevirmek istiyorum. Yardımlarınızı bekliyorum.


Sheets("Fatura").Range("n14").Value = TextBox8.Value 'Tarih
Sheets("Fatura").Range("n15").Value = TextBox9.Value 'Saat

 

[Orion1]

buyurun.

Range("N14").NumberFormat = "dd.mm.yyyy"
Range("N15").NumberFormat = "hh:mm:ss"
Sheets("Fatura").Range("n14").Value = CDate(TextBox8.Value) 'Tarih
Sheets("Fatura").Range("n15").Value = TextBox9.Value 'Saat

 

[zafer]

Merhaba

Sheets("Fatura").Range("n14").Value =Format(TextBox8.Value, "dd.mm.yyyy")
Sheets("Fatura").Range("n15").Value = Format(TextBox9.Value, "hh:mm:ss;@")

Not: Sayın Evren Kodlarınızı görmedim.

 

[yavuz829]

Çok teşekkürler hocalarım.
Güncel tarih ve saat TextBox larda süreli durabilirmi? Tarih ve saatı değiştirmemize izin versin.
Eğer oluyorsa.

 

[zafer]

Merhaba

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Now(), "dd.mm.yyyy")
TextBox2.Value = Format(Now(), "hh.mm;@")
 
End Sub

 

[yavuz829]

Hocam önceki kodunuzu aktarma butonuna ekledim sonraki kodunuzu Private Sub UserForm_Initialize() bölümüne ekledim. TextBoxlarda görünüyor. Tarihi doğu aktarıyor saatı 00:00 olarak aktarıyor.

 

[Orion1]

Merhaba

Sheets("Fatura").Range("n14").Value =Format(TextBox8.Value, "dd.mm.yyyy")
Sheets("Fatura").Range("n15").Value = Format(TextBox9.Value, "hh:mm:ss;@")

Not: Sayın Evren Kodlarınızı görmedim.

Zafer bey önemli değil.
Yalnız sizin format biçiminizde hücreye değeri metin olarak atıyor.
Bilginize.

 

[yavuz829]

Hocalarım ikinize de çok teşekkür ediyorum. Orion1 hocamın kodunu aktarma butonuna ekledim. Zafer hocamın kodunu Private Sub UserForm_Initialize() e ekledim sorunum hal oldu.

 

[baba]

Sub tarih()
Dim tag
Dim uhr
tag = Date
uhr = Time
MsgBox "Heute ist der " & Date & "," & Chr$(13) & Chr$(13) & " es ist " & Time & " Uhr.", vbOKOnly, "www.ecxel.web.tr"
End Sub

Buda bende örnek bir kod olsun

 

[baba]

Hafta Başı için:

=EĞER(HAFTANINGÜNÜ(A2)=1;A2;(EĞER(HAFTANINGÜNÜ(A2)=2;A2+6;(EĞER(HAFTANINGÜNÜ(A2)=3;A2-5;(EĞER(HAFTANINGÜNÜ(A2)=4;A2-4;(EĞER(HAFTANINGÜNÜ(A2)=5;A2-3;(EĞER(HAFTANINGÜNÜ(A2)=6;A2-2;(EĞER(HAFTANINGÜNÜ(A2)=7;A2;1)))))))))))))

Hafta Sonu için:

=EĞER(HAFTANINGÜNÜ(A2)=1;A2+6;(EĞER(HAFTANINGÜNÜ(A2)=2;A2;(EĞER(HAFTANINGÜNÜ(A2)=3;A2+1;(EĞER(HAFTANINGÜNÜ(A2)=4;A2+2;(EĞER(HAFTANINGÜNÜ(A2)=5;A2+3;(EĞER(HAFTANINGÜNÜ(A2)=6;A2+4;(EĞER(HAFTANINGÜNÜ(A2)=7;A2+5)))))))))))))