Soru Şarta Göre Saatleri Düzenleme

[Hsn55]

0,5 olarak yarım saatimi (30 dakika) ifade ediyorsunuz?

Evet

Birde hocam hafta içi bitiş saati 17:00 dan önce ise hem başlangıç hem de bitiş saatini silebilir mi?
Hafta sonuda bitiş saati 13.00 dan önce ise hem başlama hemde bitiş saati silebilir mi?

 

[Korhan Ayhan]

Kodu tekrar revize ettim. Deneyiniz.

 

[Hsn55]

Hocam hafta sonunda sıkıntı yok sadece hafta için de var. Şöyle
13:40-17:20 >silinecek
13:40-17:30>17:00-17:30 olacak
30 dakikadan az ise hem başlama hem de bitiş silinecek.

 

[Korhan Ayhan]

Birde hocam hafta içi bitiş saati 17:00 dan önce ise hem başlangıç hem de bitiş saatini silebilir mi?

Sürekli şartları değiştiriyorsunuz. Kafam karıştı...

 

[Hsn55]

Haklısınız hocam .Denedikçe bir şeyle çıkıyor. Umarım son olur

 

[Korhan Ayhan]

#23 nolu mesajınızı anlamadım.

 

[Hsn55]

Başlama ve bitiş saati arası 30 dakikadan az ise hem başlama hem de bitiş saati silinecek.30 dakika ise işleme alacak:
Hafta içi 17:00 dan sonra 3 saati geçerse bu işlem 3 saate inecek .Yarım saatten az ise silinecek

 

[Korhan Ayhan]

Son önerdiğim kodda aşağıdaki satır 30 dakika (tüm günler için) kontrolü yapıyor.

If (Veri.Offset(, 2) - Veri.Offset(, 1)) < TimeSerial(0, 30, 0) Then Veri.Offset(, 1).Resize(1, 2).ClearContents

 

[Hsn55]

30 dakikayı siliyor. Hocam 30 dakikadan az ise silmeli

 

[Korhan Ayhan]

Ben deniyorum silmiyor.

Mesela 17:00 / 17:30 olan veri aradaki süre 30 dakika olduğu için duruyor. Bende silinmiyor.

 

[Hsn55]

Bende siliniyor. Anlamadım

 

[Korhan Ayhan]

Süre tam 30 dakika olmayabilir. Varsa saniye kısmını kontrol ediniz.

 

[Hsn55]

Kontrol ediyorum. Yine siliniyor. Hocam

 

[Hsn55]

Korhan hocam. Yarım saatlik kısmı düşürdüm. Kod işimi gördü teşekkür ederim. Formülde revize gerekli sizden ricam formülü de revize edebilir misiniz? Şöyle
Başlangıç Saati ile Bitiş Saati arasındaki fark:15 dakikadan az ise hesaplama olmayacak. 15 dakika ise sonucu 0,5 yazacak.
Başlangıç Saati ile Bitiş Saati arasındaki fark:40 dakikadan Fazla İse sonucu 1 saat yazacak

 

[Korhan Ayhan]

Koda birkaş ekleme daha yaptım. Tekrar deneyiniz.

 

[Hsn55]

Hocam Son yapmış olduğunuz koddaki saati 15 dakikaya çektim. Fakat formülde revizyon gerekiyor. Onu da şu şekilde revize etme durumunuz var mı?

If Format((Veri.Offset(, 2) - Veri.Offset(, 1)), "hh:mm:ss") < Format(TimeSerial(0, 15, 0), "hh:mm:ss") Then Veri.Offset(, 1).Resize(1, 2).ClearContents

Şöyle
Başlangıç Saati ile Bitiş Saati arasındaki fark:15 dakikadan az ise hesaplama olmayacak. 15 dakika ise sonucu 0,5 yazacak.
Başlangıç Saati ile Bitiş Saati arasındaki fark:40 dakikadan Fazla İse sonucu 1 saat yazacak

 

[Korhan Ayhan]

Yazdığınız koşula göre süre farkının 15 dakikadan az olan hücrelerin içeriğinin silinmesi gerekir.

Silindiğinden formülünüze 15 dakika kontrolü eklemenize gerek var mı?

 

[Hsn55]

30 dakikayı 15 dakikaya çektim hocsam. Eğer 15 dakikadan az olursa silinsin diye.

 

[Korhan Ayhan]

Bende onu soruyorum zaten.

Süre farkı 15 dakikadan az olanlar silinsin diyorsunuz. Sonra da formüle bu koşulu eklemeye çalışıyorsunuz. Silinen veri için neden koşul eklemek istiyorsunuz. Dosyanızda göremediğim durumlar var sanırım. Bu sebeple talebiniz bana garip geliyor.

 

[Hsn55]

Hocam koşul eklememin nedeni. Formülde düzenleme gerektiği için formülün koşulu şöyle
17:00-17:15 ise Formül :0,5 yazmalı
17:00-17:14 ise Formül :Boş
17:00-17:30 ise Formül: 0,5
17:00-17:40 ise Formül :1
17:00-17:39 ise Formül:0,5
şeklinde olmalı