Tür uyumsuz diyorda benim anlamadığım bugün ile 0 arasındaki gün farkını almaya çalışıyorsunuz , sanırım hata bundan kaynaklanıyor. 0 yerine değişkenle bir tarih çekerek deneyin isterseniz yada oluyormu diye deneme olarak 0 yerine dünün tarihini atın

tar2 = (DateDiff("d","10.10.2010",bgun))

şeklinde