- Katılım
- 9 Mayıs 2005
- Mesajlar
- 404
- Excel Vers. ve Dili
- Ofis 2016 TR 64 Bit
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Cells(1, 1) = Format(tarih1, "dd.mm.yyyy")
Cells(1, 2) = Format(Date, "dd.mm.yyyy")
gs = Format((CDate(tarih2.Value) - CDate(tarih1.Value)), "0")
Cells(1, 3) = gs
End Sub