TextBoxTarih Formatı

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

Cevap: TextBoxTarih Formatı

İleti#21)  Tarkan VURAL » 14 May 2014 09:56

Tarih verilerini sayısal olarak karşılaştırmak, büyük - küçük denkliği yapmak daha mantıklıdır. Bu sebepten bir çok uygulamamda tarihleri sayısal olarak ele alırım. Bu fikir doğrultusunda kendi sorununuzu çözebileceğinize inanıyorum. ;)

Kod: Tümünü seç
If clng(cdate(dogumtarihi.Value) < clng(cdate(Date)) Then ' Küçükse
If clng(cdate(dogumtarihi.Value) <= clng(cdate(Date)) Then ' 
Küçük ve eşitse
If clng(cdate(dogumtarihi.Value) > clng(cdate(Date)) Then ' Büyükse
If clng(cdate(dogumtarihi.Value) >= clng(cdate(Date)) Then ' 
Büyük ve eşitse
If clng(cdate(dogumtarihi.Value) = clng(cdate(Date)) Then ' Eşitse
If clng(cdate(dogumtarihi.Value) <> clng(cdate(Date)) Then ' 
Eşit değil ise
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27355
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TextBoxTarih Formatı

İleti#22)  zulfuernek » 30 Tem 2017 23:10

herhangi bir butona bu kodu ekle örneğin kaydet butonuna. eğer tarih bugünden ileri herhangi bir tarih ise ileri tarih girilemez uyarısı verecektir. uyarıyı yazarken değil okeyleyip işlemi bitirme esnasında verir.

'İLERİ TARİH YAZMAYI ENGELLEME
If CDate(TextBox1.Value) > VBA.Date Then 'İLERİ TARİH YAZMAYI ENGELLEME
MsgBox ("ileri bir tarih yazamazsınız") 'İLERİ TARİH YAZMAYI ENGELLEME
TextBox1.Value = Empty 'İLERİ TARİH YAZMAYI ENGELLEME
Exit Sub 'İLERİ TARİH YAZMAYI ENGELLEME
End If 'İLERİ TARİH YAZMAYI ENGELLEME
Kullanıcı avatarı
zulfuernek
 
Kayıt: 01 Tem 2017 00:19
Meslek: bankacı
Yaş: 38
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ELAZIĞ MERKEZ

Cevap: TextBoxTarih Formatı

İleti#23)  mechatronicer » 05 Şub 2019 11:49

Murat OSMA yazdı:
Kod: Tümünü seç
Private Sub UserForm_Initialize()
On Error Resume Next
With TextBox1
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##.##.####"
.SelStart = 0
.SelLength = 1
End With
End Sub

Kod: Tümünü seç
Private Sub TextBox1_Change()
On Error Resume Next
With TextBox1
.SelLength = 1
If .SelText = "." Then
.SelStart = .SelStart + 1
.SelLength = 1
End If
End With
End Sub

Kod: Tümünü seç
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error GoTo Hata:
With TextBox1
If KeyCode = vbKeyLeft Or KeyCode = vbKeyBack Then
KeyCode = vbKeySelect
.SelStart = .SelStart - 1
.SelLength = 1
ElseIf KeyCode = vbKeyRight Then
KeyCode = vbKeySelect
.SelStart = .SelStart + 1
.SelLength = 1
ElseIf KeyCode = vbKeyDelete Then
KeyCode = vbKeySelect
If .SelText = "." Then
.SelText = "."
Else
.SelText = "#"
End If
.SelStart = .SelStart - 1
.SelLength = 1
ElseIf KeyCode = vbKeyHome Then
KeyCode = vbKeySelect
.SelStart = 0
.SelLength = 1
ElseIf KeyCode = vbKeyEnd Then
KeyCode = vbKeySelect
.SelStart = Len(TextBox1) - 1
.SelLength = 1
End If
End With
Exit Sub
Hata:
KeyCode = vbKeySelect
TextBox1.SelStart = 0
TextBox1.SelLength = 1
End Sub


Üstat Eline Sağlık Süper olmuş. Arıza Kayıt User Form çalışmamda kullanacağım. Çalışmam bitince paylaşacağım inşallah.
Kullanıcı avatarı
mechatronicer
Yeni Başlamış
 
Adı Soyadı:Kemal Sürmelioğlu
Kayıt: 29 Eyl 2013 11:56
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: TextBoxTarih Formatı

İleti#24)  gokanayz » 08 Oca 2020 12:55

textbox1.value=format(now,"dd.mm.yyyy")
Kullanıcı avatarı
gokanayz
 
Kayıt: 13 Şub 2015 11:19
Meslek: memur
Yaş: 46
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL/SANCAKTEPE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: TextBoxTarih Formatı

İleti#25)  selocan3535 » 25 Tem 2020 01:30

Tarkan VURAL yazdı:Sürekli güncellenen bir tarih elbette eklenebilir. Bir TextBox içerisine textbox1.value=format(date,"dd.mm.yyyy") şeklinde günün tarihini alabilirsiniz.


iyi geceler eklediğim dosyada ufak bir Kaç ekleme yapmaya çalıştım ama olmadı yardım edebilir misiniz forum sitesine acemiyim
Kullanıcı avatarı
selocan3535
İsimsiz Üye
 
Kayıt: 24 Tem 2020 10:27
Meslek: kağıt çöp toplayıcısı
Yaş: 39
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ev 2. KAT

Cevap: TextBoxTarih Formatı

İleti#26)  selocan3535 » 25 Tem 2020 01:33

Dosyayı Ekleyemedimi acaba
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
selocan3535
İsimsiz Üye
 
Kayıt: 24 Tem 2020 10:27
Meslek: kağıt çöp toplayıcısı
Yaş: 39
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ev 2. KAT

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: TextBoxTarih Formatı

İleti#27)  selocan3535 » 25 Tem 2020 14:04


Gönderilmiş resmi tam boy görmek istiyorsanız, eklentinin üzerini tıklayınız.




arkadaşlar bu konuda yardımcı olacak arkadaş var mı acaba
http://www.excelvba.net/download/file.php?id=48365
Kullanıcı avatarı
selocan3535
İsimsiz Üye
 
Kayıt: 24 Tem 2020 10:27
Meslek: kağıt çöp toplayıcısı
Yaş: 39
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ev 2. KAT

Önceki

Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe