month hatası

[ercanbrisa]

Dim MyDate, MyMonth, ff


MyDate = aa
ff = Month(MyDate)

TextBox8 = ff
ActiveCell.Offset(0, 6).Value = ff

' aa text boxtzn girilen tarih bilgisi örneği 28.08.2006

yakarıdaki satırlar evde kullandığım pc de normal çalışırken
iş yerinde kullandığım pc de hata veriyor aynı ikisindede
office 2003 pro TR yüklü

hata sırasında debug yaptığında
my datenin değerini
mydaye = "28.08.2006" ff=" empty" olarak görüyorum
hata nereden kaynaklanıyor fikri olan varmı
ilgilenenlere şimdiden teşekkürler

 

[Levent Menteşoğlu]

ff = Month(MyDate)

Yukarıdaki satırı aşağıdaki gibi değiştirerek deneyin.

ff = Month(cdate(MyDate))

 

[ercanbrisa]

sn. leventm

verdiğiniz kodu uyguladım fakat yine
run time error 13 veriyor daha ayrıntılı bilgi gönderiyorum yardımcı olursanız sevinirim



...
...
Private Sub txttarih_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' tarih bilgisinin noktalamalrının otomatik olarak olsması

If InStr(txttarih.Text, ".") > 1 Then Exit Sub

txttarih.Text = Format(Date, "dd.mm.yyyy")
'txttarih.Text = Format(txttarih.Text, "@@.@@.@@@@")
End Sub
...
...
...
aa = txttarih.Value
TextBox3 = aa

...
...

Dim MyDate, MyMonth, ff


MyDate = aa

ff = Month(CDate(MyDate))

'ff = Month(MyDate)

TextBox8 = ff
ActiveCell.Offset(0, 6).Value = ff

isterseniz uygulamanın tamamınıda gönderebilirim

söz konusu kısmı devre dışı bırakınca aynı hatayı aşağıdaki kısımda da veriyor
...
...
gg = Weekday(MyDate)

 

[Levent Menteşoğlu]

söz konusu kısmı devre dışı bırakınca aynı hatayı aşağıdaki kısımda da veriyor
...
...
gg = Weekday(MyDate)

Hata veren bu yerdede aynı düzeltmeyi yapın.

 

[ercanbrisa]

yanlış bilgilendirme

sayın leventm
gönderdiğiniz değişikliği

ff = Month(CDate(MyDate))


yukarıdaki gibi yaptığımda oradaki hata düzelmedi
belki başka bir problem vardır diye o kısmı REM yaptım bu defa daha alttaki bahsettiğim noktada hata verdi


yanlış anlama oldu herhalde
dosyanın tamamını ekte gönderiyorum teşekkürler

 

[Levent Menteşoğlu]

Dosyanız bende hiç hata vermedi. VBE de tools-references penceresine bir bakarmısınız, belki gereksiz bir referans işaretli olabilir. Özelliklede missing ile başlayan varsa bundaki işareti kaldırın.

 

[ercanbrisa]

Month hatası hakkında hakkında

yukarıda ki problem date formatımı

txttarih.Text = Format(Date, "dd/mm/yyyy")

şeklinde değiştirince düzeldi ve her iki pc dede normal çalışıyor
belki başkalarının da başına gelir diye yazayım dedim