TexBox'a Türkçe/Ãngilizce tarih yazdırabilmek
Merhaba Arkadaşlar,
*********************************
Private Sub UserForm_Initialize()
ComboBox1.AddItem "01"
ComboBox1.AddItem "02"
......................................
ComboBox1.AddItem "31"
ComboBox2.AddItem "01"
ComboBox2.AddItem "02"
......................................
ComboBox2.AddItem "12"
ComboBox3.AddItem "2005"
ComboBox3.AddItem "2006"
......................................
ComboBox3.AddItem "2010"
End Sub
*********************************
Private Sub CommandButton1_Click()
TextBox1.Value = Format((ComboBox1.Value & "/" & ComboBox2.Value & "/" & ComboBox3.Value), "dd mmmm yyyy dddd")
End Sub
*********************************
Ãeklinde kodlarım var ve TextBox1'de "02 Haziran 2005 Perşembe"
sonucunu alıyorum.
İstediğim CommandButton2.Click ile "02 June 2005 Wednesday" şeklinde ingilizce yazdırmak.
*********************************
Private Sub CommandButton2_Click()
...................
...................
End Sub
*********************************
Yardımcı olabilirmisiniz.
Merhaba Arkadaşlar,
*********************************
Private Sub UserForm_Initialize()
ComboBox1.AddItem "01"
ComboBox1.AddItem "02"
......................................
ComboBox1.AddItem "31"
ComboBox2.AddItem "01"
ComboBox2.AddItem "02"
......................................
ComboBox2.AddItem "12"
ComboBox3.AddItem "2005"
ComboBox3.AddItem "2006"
......................................
ComboBox3.AddItem "2010"
End Sub
*********************************
Private Sub CommandButton1_Click()
TextBox1.Value = Format((ComboBox1.Value & "/" & ComboBox2.Value & "/" & ComboBox3.Value), "dd mmmm yyyy dddd")
End Sub
*********************************
Ãeklinde kodlarım var ve TextBox1'de "02 Haziran 2005 Perşembe"
sonucunu alıyorum.
İstediğim CommandButton2.Click ile "02 June 2005 Wednesday" şeklinde ingilizce yazdırmak.
*********************************
Private Sub CommandButton2_Click()
...................
...................
End Sub
*********************************
Yardımcı olabilirmisiniz.