<?php // VFP's (Visual FoxPro) SYS2015() for PHP. // // Generates a unique key that's compatible with VFP. Written // for backward compatibility for those who need to generate // VFP keys. // We wrote this code and decided to post it just incase anyone // else out there has to import/export tables back and forth // between VFP and some other RDBMS. // // Based on the VFP code from convertdatetime.prg, which is // located at levelextreme.com's VFP download area as // convert2015.zip (File #9704). // // Enjoy! // // Code released into the public domain for the VFP community. FUNCTION SYS2015() { $cBase36="0123456789ABCDEFGHIJKLMONPQRSTUVWXYZ"; $cSys2015=""; $hour=(int)date("H"); $nmilli=($hour*3600 + (int)date("i")*60+(int)date("s"))*1000; $year=date("Y"); $t=mktime(0,0,0,1,1,$year); $days = (int)((time(void)-mktime(0,0,0,1,1,$year))/86400)+ ($year%100)*367; for ($counter=1;$counter<7;$counter++) { $cSys2015=substr($cBase36,(int)($nmilli % 36) +1,1) . $cSys2015; $nmilli=(int)($nmilli/36); } for ($counter=1;$counter<4;$counter++) { $cSys2015=substr($cBase36,($days%36) +1,1) . $cSys2015; $days=(int)($days/36); } $cSys2015="_".$cSys2015; return $cSys2015; } ?>