Herkese iyi akşamlar
Ödev için şu formülü VBA şeklinde yazmam lazım.
Excelden anlayan varsa yardımcı olabilirmi acaba :/
Her şekilde ödeşebiliriz yeterki olsun (
excel dosyası linkte mevcut.
Dosya Yükle - Dosya Upload
formül de şu şekilde :/
Kod:=EĞER(VE(B2="";C2="");"";EĞERHATA(EĞER(TARİH(YIL(C2);AY(C2);GÜN(C2))=TARİH(YIL(B2);AY(B2);GÜN(B2));ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-ZAMAN(SAAT(C2);DAKİKA(C2);SANİYE(C2));EĞER(ZAMAN(SAAT(C2);DAKİKA(C2);SANİYE(C2))>=ZAMAN(14;0;0);EĞER(EĞER(EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")="";"";EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")&":00"&":00")="";(ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-"08:00:00"+"18:00:00"-ZAMAN(18;0;0));EĞER(EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")="";"";EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")&":00"&":00")+(ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-"08:00:00"+"18:00:00"-ZAMAN(18;0;0)));EĞER(EĞER(EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")="";"";EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")&":00"&":00")="";(ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-"08:00:00"+"18:00:00"-ZAMAN(SAAT(C2);DAKİKA(C2);SANİYE(C2)));EĞER(EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")="";"";EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")&":00"&":00")+(ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-"08:00:00"+"18:00:00"-ZAMAN(SAAT(C2);DAKİKA(C2);SANİYE(C2))))));""))