A.S.C Filtre, Grafik ve Raporlama Eklentisi

GÜN360 Fonksiyonu
#1
Merhabalar

denetim is not a supported langage
List of available langages :
modula3, smarty, bibtex, java, gdb, prolog, j, basic4gl, progress, spark, stonescript, proftpd, dos, tsql, oracle11, eiffel, povray, whois, rexx, python, icon, scheme, apache, div, 6502acme, asymptote, oz, objc, javascript, actionscript3, coffeescript, awk, verilog, genero, perl, winbatch, f1, sdlbasic, lb, m68k, freebasic, systemverilog, abap, pixelbender, autohotkey, rpmspec, oracle8, haskell, sql, gwbasic, glsl, boo, cmake, whitespace, mysql, gettext, matlab, algol68, ocaml, jquery, bnf, gml, ecmascript, delphi, epc, objeck, vedit, cil, pcre, xpp, io, autoit, autoconf, nagios, dcl, unicon, nsis, e, parasail, scilab, upc, 4cs, smalltalk, providex, newlisp, magiksf, pascal, vba, bf, ocaml-brief, vim, xorg_conf, lotusformulas, pli, diff, qbasic, robots, oberon2, arm, rsplus, erlang, latex, mxml, text, mmix, clojure, oxygene, fortran, cpp, csharp, genie, lua, lsl2, euphoria, cadlisp, php-brief, email, c_mac, perl6, cfm, pys60, powershell, actionscript, dot, c, xml, mapbasic, freeswitch, q, lolcode, klonec, groovy, html5, vbnet, logtalk, css, applescript, cpp-qt, caddcl, pike, visualprolog, cfdg, rails, idl, make, powerbuilder, sas, locobasic, pycon, vhdl, properties, thinbasic, gambas, typoscript, vala, asp, fo, plsql, parigp, rebol, kixtart, gnuplot, dcs, ldif, bash, oobas, visualfoxpro, asm, ini, falcon, chaiscript, tcl, php, reg, uscript, urbi, lotusscript, postgresql, hq9plus, modula2, 68000devpac, java5, go, blitzbasic, mirc, d, mpasm, pf, ruby, inno, z80, intercal, scala, ada, 6502kickass, 6502tasm, lisp, purebasic, apt_sources, netrexx, llvm, cobol, haxe, octave, avisynth, pic16, html4strict, bascomavr, sparql, teraterm, cuesheet, fsharp, dcpu16, c_loadrunner, zxbasic, xbasic, klonecpp, yaml, hicest, lscript, oorexx, per

fonksiyonu ile iki tarih arası farkı gün sayısı olarak elde edebiliyoruz.Bu fonksiyonda bir yıl 365 gün olarak değerlendiriliyor.(normal olarak Smile )

Ancak bilindiği üzere muhasebe,maaş,kıdem vs gibi hesaplamalarda yıl 360 gün olarak kabul edilir.Eski dost excel de GÜN360 formülü ile yapabildiğimiz bu işlemin malesef access de bir benzeri fonksiyonu yok bildiğim kadarıyla.Ancak aşağıdaki kendi yazdığımız fonksiyon yardımıyla excelde kullandığımız tüm formülleri access de kullanabiliyoruz.Bunun için önce;

VB Ekranı-Tools-Reference menüsünden Microsoft Excel 14.0'a Object Library (sürüme göre 8.0,9.0 olabilir.) çentik atıyoruz.

Daha sonra bir modül içerisine

Visual Basic
  1. Function Days360(ilktarih As Date, sontarih As Date) As Integer
  2.  
  3. Days360 = Excel.WorksheetFunction.Days360(ilktarih, sontarih)
  4.  
  5. End Function



yazıyoruz.
Sonra iki tarih arası farkın 360 gün sayısına göre farkını alacağımız metin kutusunun denetim kaynağına
denetim is not a supported langage
List of available langages :
modula3, smarty, bibtex, java, gdb, prolog, j, basic4gl, progress, spark, stonescript, proftpd, dos, tsql, oracle11, eiffel, povray, whois, rexx, python, icon, scheme, apache, div, 6502acme, asymptote, oz, objc, javascript, actionscript3, coffeescript, awk, verilog, genero, perl, winbatch, f1, sdlbasic, lb, m68k, freebasic, systemverilog, abap, pixelbender, autohotkey, rpmspec, oracle8, haskell, sql, gwbasic, glsl, boo, cmake, whitespace, mysql, gettext, matlab, algol68, ocaml, jquery, bnf, gml, ecmascript, delphi, epc, objeck, vedit, cil, pcre, xpp, io, autoit, autoconf, nagios, dcl, unicon, nsis, e, parasail, scilab, upc, 4cs, smalltalk, providex, newlisp, magiksf, pascal, vba, bf, ocaml-brief, vim, xorg_conf, lotusformulas, pli, diff, qbasic, robots, oberon2, arm, rsplus, erlang, latex, mxml, text, mmix, clojure, oxygene, fortran, cpp, csharp, genie, lua, lsl2, euphoria, cadlisp, php-brief, email, c_mac, perl6, cfm, pys60, powershell, actionscript, dot, c, xml, mapbasic, freeswitch, q, lolcode, klonec, groovy, html5, vbnet, logtalk, css, applescript, cpp-qt, caddcl, pike, visualprolog, cfdg, rails, idl, make, powerbuilder, sas, locobasic, pycon, vhdl, properties, thinbasic, gambas, typoscript, vala, asp, fo, plsql, parigp, rebol, kixtart, gnuplot, dcs, ldif, bash, oobas, visualfoxpro, asm, ini, falcon, chaiscript, tcl, php, reg, uscript, urbi, lotusscript, postgresql, hq9plus, modula2, 68000devpac, java5, go, blitzbasic, mirc, d, mpasm, pf, ruby, inno, z80, intercal, scala, ada, 6502kickass, 6502tasm, lisp, purebasic, apt_sources, netrexx, llvm, cobol, haxe, octave, avisynth, pic16, html4strict, bascomavr, sparql, teraterm, cuesheet, fsharp, dcpu16, c_loadrunner, zxbasic, xbasic, klonecpp, yaml, hicest, lscript, oorexx, per
yazarak sonuca ulaşabiliyoruz.



  Alıntı
Bu mesajı beğenenler:
#2
Çok zekice; süper..

Teşekkür ederim dazi...



  Alıntı
Bu mesajı beğenenler:
#3
(21-06-2013, 23:13)Taruz demiş ki: Çok zekice; süper..

Teşekkür ederim dazi...

Hocamız kim asıl teşekkür sizeGg



  Alıntı
Bu mesajı beğenenler:
#4
evet gerçekten ben de çok zekice buldum, teşekkürler dazi...



  Alıntı
Bu mesajı beğenenler:
#5
Harikulade...
Özellikle Personel sistemleri ile ilgili tüm konularda çok büyük kolaylık sağlayacak bir çözüm olmuş sayın dazi.
Zekice bir yaklaşım.
Tebrikler,
Sevgiler...
[Resim: yazlimplanlama.png]


İslamın şartı Beş, haddini bilmek Altıdır...Vv





  Alıntı
Bu mesajı beğenenler:
#6
Merhaba sayın Dazi, gerçekten güzel örnek, bilhassa yeri geldiğinde Excel gibi diğer bileşenlerden faydalanmak adına çok yararlı..


days360 için aşağıdaki gibi bir fonksiyon olduğunu da belirtmek isterim. Bu iş için Excel'i referans göstermek istemeyenler aşağıdaki fonksiyonu kullanabilirler. Ben test ettim aşağıdaki fonksiyon aynı sonucu vermektedir..

Visual Basic
  1. Public Function Days360(StartDate As Date, EndDate As Date, Optional Method As Boolean = False) As Long
  2. Dim TempMonths As Long
  3. Dim StartDay As Long
  4. Dim EndDay As Long
  5. StartDay = Day(StartDate)
  6. EndDay = Day(EndDate)
  7. If Not Method Then
  8. If StartDay > 30 Then
  9. StartDate = DateAdd("d", -1, StartDate)
  10. End If
  11. If EndDay = 31 And StartDay > 30 Then
  12. EndDate = DateAdd("d", 1, EndDate)
  13. Else
  14. If EndDay = 31 Then
  15. EndDate = DateAdd("d", -1, EndDate)
  16. End If
  17. End If
  18. Else
  19. If StartDay > 30 Then
  20. StartDate = DateAdd("d", -1, StartDate)
  21. End If
  22. If EndDay > 30 Then
  23. EndDate = DateAdd("d", -1, EndDate)
  24. End If
  25. End If
  26. StartDay = Day(StartDate)
  27. EndDay = Day(EndDate)
  28. TempMonths = DateDiff("M", StartDate, EndDate)
  29. Days360 = (TempMonths * 30) + (EndDay - StartDay)
  30. End Function


Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  DateDiff Fonksiyonu Taruz 17 20.235 28-06-2020, 22:01
Son Mesaj: ercanzayim
  DatePart Fonksiyonu Taruz 12 12.666 09-09-2015, 12:22
Son Mesaj: dazi
access-sql-19 DateAdd Fonksiyonu Taruz 17 16.539 14-06-2014, 14:29
Son Mesaj: dsezgin
access-sql-19 Format Fonksiyonu (Tarih Değeri İçin) Taruz 10 17.842 06-06-2014, 19:38
Son Mesaj: alienerji
access-sql-19 Year Fonksiyonu Taruz 8 6.316 24-10-2013, 11:05
Son Mesaj: Taruz
access-sql-19 Date Fonksiyonu Taruz 11 10.962 20-10-2013, 00:56
Son Mesaj: kadirakyil
  Hour Fonksiyonu (Saat Fonksiyonu) efeksk 2 3.173 08-06-2013, 12:59
Son Mesaj: onur_can
  TimeSerail Fonksiyonu efeksk 1 1.942 08-06-2013, 12:58
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi