ListBoxa Saat Yazdırma Kodları

[iaydin20]

Arkadaşlar Listboxa Güncel saati 00:00:00 Formatında yazdırmak istiyorum yardımcı olabilirmisiniz...

 

[ECYavuz]

Selam,

Saati ListBox a neden yazdırmak istediğinizi pek anlamadım ama; eğer Textbox'a açılışta saat görmek istiyorsanız;

Private Sub UserForm_Initialize()
TextBox1 = Format(Date, "mm.dd.yyyy")
End Sub
saat içinde;
Private Sub UserForm_Initialize()
TextBox1 = Format(Time, "hh:mm")
End Sub

Bu kodlar işinize yarar... İyi çalışmalar...

 

[ECYavuz]

Hatta biraz daha ileri gidersek TextBox da kullanabileceğiniz diğer formatlar da şöyle özetlenebilir.

İKİ HANELİ SAYI BİÇİMİNE DÖNÜŞTÜRÜR
TextBox1 = Format(TextBox1, "0.00")
TextBox1 = Format(TextBox1, "0.00 YTL")

ComboBox1 = Format(ComboBox1, "dd.mm.yyyy")

TARİH FORMATINA DÖNÜŞTÜRÜR
TextBox1 = Format(Date, "dd.mm.yyyy")

TEXTBOXTA SAATİ GÖSTERİR
Private Sub UserForm_Initialize()
TextBox1 = Format(Now, "hh:mm")
End Sub

İKİ TARİH ARASI RAPOR ALMAK İÇİN
BASLA = CLng(CDate(TextBox1))
BITIR = CLng(CDate(TextBox2))

TEXTBOXLARI SAYI BİÇİMİNE ÇEVİRİR VİRGÜLLERİDE KALE ALIR
TextBox1.Value = Format(CDbl(TextBox1), "##,##0.00")