- Katılım
- 24 Aralık 2015
- Mesajlar
- 19
- Excel Vers. ve Dili
- ofis 2010 türkçe
Arkadaşlar ekteki bordro proğramını çalıştırdığım zaman aşağıdaki gibi hataları veriyor. ve kilitlniyor Lütfen yardım etmenizi rica ediyorum.
"this command will stop the debugger"
"compile error: can't find project or library"
Birkaç altarnetif linki aşağıda yardım ederseniz çok sevinirim.bir kaç gündür cevap bekliyorum yok mu cevap verecek bir arkadaş.
http://s3.dosya.tc/server7/qkv0p5/Ex...i-2.0.xls.html
http://www.dosyaupload.com/bwv
hatanın aşağıdaki kodlardan olduğunu tahmin ediyorum
Function FazlaMesai75(BrutMaas As Currency, CalisilanSaat)
If BrutMaas <= 0 Then BrutMaas = 0
Saat = Val(CalisilanSaat) * 60
Satir = InStr(1, CalisilanSaat, ",")
Dakika = 0
If Satir > 0 Then Dakika = Mid(CalisilanSaat, Satir + 1, 2)
Dakika = Dakika + Saat
If Dakika <= 0 Then Exit Function
If Dakika > 0 Then
BrutMaas = (BrutMaas / 30 / 7.5 / 60) 'Dakika ücreti
FazlaMesai75 = (BrutMaas * Dakika)
FazlaMesai75 = FazlaMesai75 * 1.75 '%75 Mesai
Else
FazlaMesai75 = 0
End If
End Function
Function FazlaMesai100(BrutMaas As Currency, CalisilanSaat)
If BrutMaas <= 0 Then BrutMaas = 0
Saat = Val(CalisilanSaat) * 60
Satir = InStr(1, CalisilanSaat, ",")
Dakika = 0
If Satir > 0 Then Dakika = Mid(CalisilanSaat, Satir + 1, 2)
Dakika = Dakika + Saat
If Dakika <= 0 Then Exit Function
If Dakika > 0 Then
BrutMaas = (BrutMaas / 30 / 7.5 / 60) 'Dakika Ücreti
FazlaMesai100 = (BrutMaas * Dakika)
FazlaMesai100 = FazlaMesai100 * 2 '%100 Mesai
Else
FazlaMesai100 = 0
End If
End Function
"this command will stop the debugger"
"compile error: can't find project or library"
Birkaç altarnetif linki aşağıda yardım ederseniz çok sevinirim.bir kaç gündür cevap bekliyorum yok mu cevap verecek bir arkadaş.
http://s3.dosya.tc/server7/qkv0p5/Ex...i-2.0.xls.html
http://www.dosyaupload.com/bwv
hatanın aşağıdaki kodlardan olduğunu tahmin ediyorum
Function FazlaMesai75(BrutMaas As Currency, CalisilanSaat)
If BrutMaas <= 0 Then BrutMaas = 0
Saat = Val(CalisilanSaat) * 60
Satir = InStr(1, CalisilanSaat, ",")
Dakika = 0
If Satir > 0 Then Dakika = Mid(CalisilanSaat, Satir + 1, 2)
Dakika = Dakika + Saat
If Dakika <= 0 Then Exit Function
If Dakika > 0 Then
BrutMaas = (BrutMaas / 30 / 7.5 / 60) 'Dakika ücreti
FazlaMesai75 = (BrutMaas * Dakika)
FazlaMesai75 = FazlaMesai75 * 1.75 '%75 Mesai
Else
FazlaMesai75 = 0
End If
End Function
Function FazlaMesai100(BrutMaas As Currency, CalisilanSaat)
If BrutMaas <= 0 Then BrutMaas = 0
Saat = Val(CalisilanSaat) * 60
Satir = InStr(1, CalisilanSaat, ",")
Dakika = 0
If Satir > 0 Then Dakika = Mid(CalisilanSaat, Satir + 1, 2)
Dakika = Dakika + Saat
If Dakika <= 0 Then Exit Function
If Dakika > 0 Then
BrutMaas = (BrutMaas / 30 / 7.5 / 60) 'Dakika Ücreti
FazlaMesai100 = (BrutMaas * Dakika)
FazlaMesai100 = FazlaMesai100 * 2 '%100 Mesai
Else
FazlaMesai100 = 0
End If
End Function
Ekli dosyalar
-
1.1 MB Görüntüleme: 3