Bilgisayar tarihini 3 ay ileri almak

[k0081]

Merhaba arkadaşlar;

sistem tarihini textbox a 3 yazdığımda tarihi i o anki tarihden 3 ay sonraya değiştiren kod nasıl olmalıdır.. bir de geri ye dönmek için buton yardımı ile orjinal tarihi ayarlamak istiyorum..

mevcut tarih (orjinal tarih diyelim): 21.03.2013

textbox1 : 3 enter

yeni tarih : 21.06.2013
*********************
buton1 tıkladığımda ise

21.03.2013

gibi..
***********************

yardımcı arkadaşa şimdiden teşekkürler..

 

[Civan Jack]

http://www.ms-office-forum.net/forum/showthread.php?t=41229

 

[k0081]

http://www.ms-office-forum.net/forum/showthread.php?t=41229

bu linkteki kodlar biraz karışık açıkcası.. pek bişey anlamadım. yine de Teşekkürler..

 

[mancubus]

böyle tehlikeli bir uygulamayı ben yapmazdım şahsen....

 

[mancubus]

(Yıl, Ay, Gün)

Date = DateSerial(2013, 1, 1)

(Saat, Dakika, Saniye)

Time = TimeSerial(14, 0, 0)

yıl, ay, gün için değişken kullanılabilir.

Date = DateSerial(2013, Month(Date) + TextBox1.Value, 1)

 

[Civan Jack]

Bilgisayar sistem tarihini ileri bir tarihe almak istediğinizi sanmıştım. Mancubus size yardımcı olmuş.

 

[k0081]

(Yıl, Ay, Gün)

hocam bir kısmı tamamdır.. teşekkürler.. butona yazacağım kod nasıl olmalı..?

yani ilk önce mevcut tarihi hafızaya alıp sonra tekrar çağırmalımıyım..?

 

[k0081]

Bilgisayar sistem tarihini ileri bir tarihe almak istediğinizi sanmıştım. Mancubus size yardımcı olmuş.

doğru hocam ,, öyle zaten.. bilgisayar sistem tarihini ileri alacağım..

 

[mancubus]

evet öyle yapmak lazım.

kodların üzerinde global bir değişken deklare edin.

tekrar hatırlatayım. ben yapılmasını tehlikeli bulduğum sistem tarih ve saatini VBA aracılığı ile değiştirmenin nasıl yapılacağı hakkındaki sorunuza cevap verdim sadece.

elinizdeki dosyayı yüklerseniz daha fazla yardımcı olunabilir.

 

[mancubus]

Örneğin UserForm'da ise, UserFom'un kod modülünde şöyle bir şey olabilir.

Global GercekTarih As Date


Private Sub DugmeIleriAl_Click()
    Dim SahteTarih As Date
    
    GercekTarih = Date
    SahteTarih = DateAdd("m", TextBox1.Value, GercekTarih)
    Date = SahteTarih
End Sub


Private Sub DugmeGeriAl_Click()
    Date = GercekTarih
End Sub

 

[k0081]

hocam teşekkürler öncelikle cevaplar için.. elimde örnek dosya yok.. bu son göndermiş olduğunuz kod deneyeceğim,,, 2-3 saat sonra.. burdan tekrar yazarım..

****************************************

Hocam tamamdır,, çok teşekkür ediyorum..

 

[mancubus]

hocam teşekkürler öncelikle cevaplar için.. elimde örnek dosya yok.. bu son göndermiş olduğunuz kod deneyeceğim,,, 2-3 saat sonra.. burdan tekrar yazarım..

****************************************

Hocam tamamdır,, çok teşekkür ediyorum..

rica ederim.

pc'yi veya excel'i "run as adminisrator" olarak açmak lazım yalnız. aksi takdirde aşağıdaki hata gelir.