iki tarih arası kaç hafta kaç gün

[musculus]

Verilen 2 tarih arasında kaç hafta kaç gün olduğunu makro ile nasıl yazabiliriz.

=NSAT((B1-A1)/7)&" Hafta "&MOD(B1-A1;7)&"Gün" formül ile oluyor ama makro ile nasıl yazabilriz.

Ya da VBA da mod fonksiyonu yerine ne kullanabiliriz

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub HaftaGun()
 
    Dim Hafta As String, Gun As String
 
    '=NSAT((B1-A1)/7)&" Hafta "&MOD(B1-A1;7)&"Gün"
 
    Hafta = Int(([B1] - [A1]) / 7) & " Hafta "
    Gun = ([B1] - [A1]) Mod 7 & " Gün"
 
    [C1] = Hafta & Gun
 
 
End Sub

.

 

[musculus]

Teşekkür ederim

Mod fonksiyonunu nasıl kullanacağımı bilmiyordum.Çok işimi gördü.