@Karaman; daha önce aşağıdaki konu da bir fonksiyon paylaşmıştım belki işinize yarayabilir.

https://www.r10.net/php/1612301-basit...post1071694411