VBA'da bir tarihten nasıl çıkarılmalı?

Question

Excel VBA'da tarihle çalışırken büyük sorun yaşıyorum. Kullanıcının tarihi gireceği bir metin kutusu olan bir form var. Sorun, farklı formatlarda girebilmesidir (örneğin, 1 Ağustos için 1.08.2011 veya aynı gün için 8/1/11). Şimdi yapmak istediğim, TextBox'a girdiği tarihten itibaren bazı günleri çıkarmak. Şimdiye kadar başarıya ulaştım ve nasıl yapacağımı bilmiyorum. Ben datalivrare kullanıcı tarihini girer ve 4 O tarihten çıkarılacak istediğiniz gün sayısı olduğu metin kutusu olan bu

Format((Format(Me.datalivrare.Value, "dd.mm.yyy") - 4), "dd.mm.yyyy") 

gibi bir şey denedim ... ve biçimi her zaman dd olmak istiyorum .mm.yyyy, bu metin kutusuna ne girerse girsinler.

Answer 1

Ben Sen yapabileceğini

http://www.techonthenet.com/excel/formulas/dateadd.php

http://office.microsoft.com/en-us/access-help/dateadd-function-HA001228810.aspx

VBA

için DateAdd işlevi bakarak öneririz aşağıdadır:

Format(DateAdd("d", -4, CDate(Me.datalivrare.Value)), "dd.mm.yyyy") 

Answer 2

iyi vba üzerinde tarihleri ​​eklemek ve substract için ayrıca, dateadd() (reddetme için negatif sayı ile) da, e xample kod biçim dizesi bir eksik y var Tarihi

Answer 3

İlk dökme (sadece, 1, 2 veya 4 y kabul eder), daha sonra gün çıkarma, daha sonra uygun bir şekilde biçimlendirmek:

Format(DateAdd("d", -4, CDate(Me.datalivrare.Value)), "dd.mm.yyyy") 

Answer 4

Bu önemlidir

If isDate(Me.datalivrare.Value) Then 
    str_Date = Format(DateAdd("d", -4, CDate(Me.datalivrare.Value)), "dd.mm.yyyy") 
Else 
    MsgBox "Not a valid date value", vbCritical + vbOkOnly, "Invalid Entry" 
End If 

Ben bluefeet cevabı şimdiye kadar en çok bilgi vardı ve DATEADD ve CDate kullanımını ödünç düşünüyorum: kullanıcı VBA Bu nedenle, öncelikle gereken bir tarih olarak interprit bir değer girdiniz olmadığını kontrol edin.