Haftasonu ve saat Kriteri kıyaslama

[Ozcan27]

Merhaba arkadaşlar,

Bir liste var ve Listede tarih formatı "11.04.2007 20:46" olarak yazıyor. Ben burada eğer gün haftasonu ise; gün Pazartesi olarak değişecek, saat ise 15:00 dan büyükse 09:00 olarak değişecek. Bu şekilde bir çalışma yapmak istiyorum. Haftasonu ayrımı yapan yazılara ulaştım ancak ek dosyaları görülmüyor. Yardımlarınız için şimdiden teşekkürler.

 

[Recep İpek]

Ekteki örneği inceleyebilirsiniz.

Saat 15:00'ten sonrakilerin tarihi ertesi günün tarihine göre ayarlanmıştır.
Durumua göre kızmızı renkteki yeri iptal edebilirsiniz.

[color=blue]Sub Düzelt()[/color]
On Error Resume Next
For Each trh1 In Range("a2:a" & [a65536].End(3).Row)
kontrol = WorksheetFunction.Weekday(trh1, vbMonday)
If kontrol = 6 Then
trh1.Value = trh1 + 2
ElseIf kontrol = 7 Then
trh1.Value = trh1 + 1
End If
Next
'*************************************************
saats = #9:00:00 AM#
For Each trh2 In Range("a2:a" & [a65536].End(3).Row)
kontrol = TimeSerial(Hour(trh2), Minute(trh2), Second(trh2))
If kontrol > #3:00:00 PM# Then
trh2.Value = Format(DateSerial(Year(trh2), Month(trh2), Day(trh2) [b][color=red]+ 1[/b][/color]) & " " & TimeSerial(Hour(saats), Minute(saats), Second(saats)), "dd/mm/yyyy hh:mm")
End If
Next
[color=blue]End Sub[/color]