vba dize Tarihi dönüştürme

Question

Ben aşağıdaki biçimde bir Excel sayfasında veriler: Bir dizi DeliveryDate değerlerini kaydettikten

 
ItemCode       DeliveryDate 
5456987        24.01.2009 
5456988           
5456989        12.24.2009 
5456990        12/24/2009 

. Tarihin temelleri konusunda karar vermem ve sonucu yeni bir sayfa halinde basmam gerekiyor.

• ayrıştırma: VBA bir işlev hangi can var mı

  Run-time error '13':

  Type mismatch

  : Ben diziye değerleri dönüştürmek zorunda:

  Dim current as Date, highest as Date, result() as Date 
  For Each itemDate in DeliveryDateArray 
      current = CDate(itemDate) 
      if current > highest then 
       highest = current 
      end if 
      ' some more operations an put dates into result array 
  Next itemDate 
  'After activating final sheet... 
  Range("A1").Resize(UBound(result), 1).Value = Application.Transpose(result) 
  

  Maalesef CDate() fonksiyonu hata atıyor herhangi bir tarih biçimiyle dize ve birlikte çalışmak için bir tarih nesnesi döndürün.

• Boş bir tarih nesnesini, dize boşsa veya hatalıysa (döngüde karşılaştırmak için) döndürün.

Düzenleme:

basitçe, o boş veri satırında hata atma olabilir gibi myDate = CDate("24.01.2009")

Answer 1

Sizin için çalışıp çalışmadığını görmek için Replace kullanmayı deneyin. Gördüğüm gibi birkaç kez yukarıda değinilen problem, CDate fonksiyonunun periyodlarda boğulmasıdır. Değiştirmeyi eğik çizgiye çevirmek için kullanabilirsiniz. Herhangi bir tarih formatını ayrıştırabilen vba'daki bir Fonksiyon hakkındaki sorunuzu cevaplamak için, çok sınırlı seçenekleriniz yok.

ws.Range ("A: Bir")

Dim current as Date, highest as Date, result() as Date 
For Each itemDate in DeliveryDateArray 
    Dim tempDate As String 
    itemDate = IIf(Trim(itemDate) = "", "0", itemDate) 'Added per OP's request. 
    tempDate = Replace(itemDate, ".", "/") 
    current = Format(CDate(tempDate),"dd/mm/yyyy") 
    if current > highest then 
     highest = current 
    end if 
    ' some more operations an put dates into result array 
Next itemDate 
'After activating final sheet... 
Range("A1").Resize(UBound(result), 1).Value = Application.Transpose(result) 

Answer 2

görünüyor çalıştırmak sadece emin itemDate değilmi yapmaya çalıştık var, hata yeniden oluşturmak için CDate() işlevini çalıştırmadan önce boş mu? Bence bu senin problemin olabilir.

Answer 3

Bu kodu kullanılır. FormulaR1C1 = "= DATEVALUE (RC [1])"

kolon A olacak gg/aa/yyyy

RC [1] B sütunu, METİN dize, örneğin 01/30/12 bu sitede [göre, BU TARİH TİPİ