06-08-2015, 00:45
(31-07-2015, 23:31)lorenzo1903 demiş ki: Merhabalar,
iki tarih arasında cumartesi,pazar ve normal iş gününü hesaplatmak istiyorum.
Örnek
10.07.2015
31.07.2015 tarihleri arasındaki iş günü ve c.tesi ve pazarı
16 iş günü
3 cumartesi
3 pazar bu şekilde yazmasını nasıl sağlayabilirim.
Buyurun.
Visual Basic
- Sub gunler59()
- Dim i As Date, isgun As Long, cumartesi As Long, pazar As Long
- For i = DateValue("10.07.2015") To DateValue("31.07.2015")
- If Weekday(i, 2) < 6 Then
- isgün = isgün + 1
- ElseIf Weekday(i, 2) = 6 Then
- cumartesi = cumartesi + 1
- Else
- pazar = pazar + 1
- End If
- Next i
- MsgBox "İşgünü : " & isgün & vbCrLf & "Cumartesi : " & _
- cumartesi & vbCrLf & "Pazar : " & pazar
- End Sub