API tools faq
paste
Advertisement
jamboljack

Overtime Modif

jamboljack
Nov 24th, 2014
410
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 2.50 KB | None | 0 0
raw download clone embed print report
  1. SET DATE DMY
  2. SET MARK TO "-"
  3. SET HOURS TO 24
  4. SET CENTURY ON
  5.  
  6. vtanggal = CTOD('25-10-2014')
  7. vjam_masuk = '08:00'
  8. nkiri_masuk  = val(left(vjam_masuk,2))
  9. nkanan_masuk = val(right(vjam_masuk,2))
  10. vjam_keluar = '17:30'
  11. nkiri_keluar  = val(left(vjam_keluar,2))
  12. nkanan_keluar = val(right(vjam_keluar,2))
  13. vatur_masuk = '08:00'
  14. nkiri_atur_masuk  = val(left(vatur_masuk,2))
  15. nkanan_atur_masuk = val(right(vatur_masuk,2))
  16. vatur_keluar = '16:30'
  17. nkiri_atur_keluar  = val(left(vatur_keluar,2))
  18. nkanan_atur_keluar = val(right(vatur_keluar,2))
  20. ** Tgl chkin: 2014-11-25 07:00
  21. today_chkin=DATETIME(YEAR(vtanggal), MONTH(vtanggal), DAY(vtanggal), nkiri_masuk, nkanan_masuk, 0)
  22. ** Tgl chkout: 2014-11-26 17:00
  23. today_chkout=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_keluar, nkanan_keluar, 0)
  24.  
  25. ** aturan jam masuk: 2014-11-25 08:00
  26. rule_chkin=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_atur_masuk, nkanan_atur_masuk, 0)
  27. ** aturan jam pulang: 2014-11-25 16:30
  28. rule_chkout=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_atur_keluar, nkanan_atur_keluar, 0)
  29.  
  30. **testing menampilkan tgl dan waktu
  31. _testing = ;
  32. "Rule chkin date : " + LEFT(TRANSFORM(rule_chkin, "@D"),10) + ;
  33. " time : " + SUBSTR(TRANSFORM(rule_chkin, "@D"),12,5) + ;
  34. CHR(10)+CHR(13)+ ;
  35. "Rule chkout date : " + LEFT(TRANSFORM(rule_chkout, "@D"),10) + ;
  36. " time : " + SUBSTR(TRANSFORM(rule_chkout, "@D"),12,5) + ;
  37. CHR(10)+CHR(10)+;
  38. CHR(13)+ ;
  39. "Today chkin date : " + LEFT(TRANSFORM(today_chkin, "@D"),10) + ;
  40. " time : " + SUBSTR(TRANSFORM(today_chkin, "@D"),12,5) + ;
  41. CHR(10)+CHR(13)+ ;
  42. "Today chkout date : " + LEFT(TRANSFORM(today_chkout, "@D"),10) + ;
  43. " time : " + SUBSTR(TRANSFORM(today_chkout, "@D"),12,5) + ;
  44. CHR(10)+CHR(10)
  45.  
  46. _hour = ((rule_chkout-today_chkout)/3600) * IIF(rule_chkout-today_chkout<0, -1, 1)
  47. _min = STR(((rule_chkout-today_chkout)/3600*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  48. _sec = STR(((rule_chkout-today_chkout)/3600*60*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  49.  
  50. **testing menghitung overtime
  51. _testing = _testing + ;
  52. IIF(today_chkout-rule_chkout <= 0, ;
  53. "no overtime counts.", ;
  54. "overtime counts: " + TRANSFORM(_hour,"99999.9999") + " hour") + ;
  55. CHR(10)+CHR(10)+CHR(13)
  56.  
  57. **testing menampilkan format waktu
  58. _testing = _testing + " format in time : " + ;
  59. STRTRAN(TRANSFORM(INT(_hour),"99") + ":" + ;
  60. TRANSFORM(MOD(VAL(_min),60),"99") + ":" + ;
  61. TRANSFORM(MOD(VAL(_sec),60),"99"), ;
  62. " ", "0")
  63.  
  64. =MESSAGEBOX(_testing ,0+64,"Demo - Time Coounter
  65. ** Tgl chkin: 2014-11-25 07:00
  66. today_chkin=DATETIME(YEAR(vtanggal), MONTH(vtanggal), DAY(vtanggal), nkiri_masuk, nkanan_masuk, 0)
  67. ** Tgl chkout: 2014-11-26 17:00
  68. today_chkout=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_keluar, nkanan_keluar, 0)
  69.  
  70. ** aturan jam masuk: 2014-11-25 08:00
  71. rule_chkin=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_atur_masuk, nkanan_atur_masuk, 0)
  72. ** aturan jam pulang: 2014-11-25 16:30
  73. rule_chkout=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_atur_keluar, nkanan_atur_keluar, 0)
  74.  
  75. **testing menampilkan tgl dan waktu
  76. _testing = ;
  77. "Rule chkin date : " + LEFT(TRANSFORM(rule_chkin, "@D"),10) + ;
  78. " time : " + SUBSTR(TRANSFORM(rule_chkin, "@D"),12,5) + ;
  79. CHR(10)+CHR(13)+ ;
  80. "Rule chkout date : " + LEFT(TRANSFORM(rule_chkout, "@D"),10) + ;
  81. " time : " + SUBSTR(TRANSFORM(rule_chkout, "@D"),12,5) + ;
  82. CHR(10)+CHR(10)+;
  83. CHR(13)+ ;
  84. "Today chkin date : " + LEFT(TRANSFORM(today_chkin, "@D"),10) + ;
  85. " time : " + SUBSTR(TRANSFORM(today_chkin, "@D"),12,5) + ;
  86. CHR(10)+CHR(13)+ ;
  87. "Today chkout date : " + LEFT(TRANSFORM(today_chkout, "@D"),10) + ;
  88. " time : " + SUBSTR(TRANSFORM(today_chkout, "@D"),12,5) + ;
  89. CHR(10)+CHR(10)
  90.  
  91. _hour = ((rule_chkout-today_chkout)/3600) * IIF(rule_chkout-today_chkout<0, -1, 1)
  92. _min = STR(((rule_chkout-today_chkout)/3600*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  93. _sec = STR(((rule_chkout-today_chkout)/3600*60*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  94.  
  95. **testing menghitung overtime
  96. _testing = _testing + ;
  97. IIF(today_chkout-rule_chkout <= 0, ;
  98. "no overtime counts.", ;
  99. "overtime counts: " + TRANSFORM(_hour,"99999.9999") + " hour") + ;
  100. CHR(10)+CHR(10)+CHR(13)
  101.  
  102. **testing menampilkan format waktu
  103. _testing = _testing + " format in time : " + ;
  104. STRTRAN(TRANSFORM(INT(_hour),"99") + ":" + ;
  105. TRANSFORM(MOD(VAL(_min),60),"99") + ":" + ;
  106. TRANSFORM(MOD(VAL(_sec),60),"99"), ;
  107. " ", "0")
  108.  
  109. =MESSAGEBOX(_testing ,0+64,"Demo - Time Coounter
  110. ** Tgl chkout: 2014-11-26 17:00
  111. today_chkout=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_keluar, nkanan_keluar, 0)
  113. ** aturan jam masuk: 2014-11-25 08:00
  114. rule_chkin=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_atur_masuk, nkanan_atur_masuk, 0)
  115. ** aturan jam pulang: 2014-11-25 16:30
  116. rule_chkout=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_atur_keluar, nkanan_atur_keluar, 0)
  117.  
  118. **testing menampilkan tgl dan waktu
  119. _testing = ;
  120. "Rule chkin date : " + LEFT(TRANSFORM(rule_chkin, "@D"),10) + ;
  121. " time : " + SUBSTR(TRANSFORM(rule_chkin, "@D"),12,5) + ;
  122. CHR(10)+CHR(13)+ ;
  123. "Rule chkout date : " + LEFT(TRANSFORM(rule_chkout, "@D"),10) + ;
  124. " time : " + SUBSTR(TRANSFORM(rule_chkout, "@D"),12,5) + ;
  125. CHR(10)+CHR(10)+;
  126. CHR(13)+ ;
  127. "Today chkin date : " + LEFT(TRANSFORM(today_chkin, "@D"),10) + ;
  128. " time : " + SUBSTR(TRANSFORM(today_chkin, "@D"),12,5) + ;
  129. CHR(10)+CHR(13)+ ;
  130. "Today chkout date : " + LEFT(TRANSFORM(today_chkout, "@D"),10) + ;
  131. " time : " + SUBSTR(TRANSFORM(today_chkout, "@D"),12,5) + ;
  132. CHR(10)+CHR(10)
  133.  
  134. _hour = ((rule_chkout-today_chkout)/3600) * IIF(rule_chkout-today_chkout<0, -1, 1)
  135. _min = STR(((rule_chkout-today_chkout)/3600*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  136. _sec = STR(((rule_chkout-today_chkout)/3600*60*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  137.  
  138. **testing menghitung overtime
  139. _testing = _testing + ;
  140. IIF(today_chkout-rule_chkout <= 0, ;
  141. "no overtime counts.", ;
  142. "overtime counts: " + TRANSFORM(_hour,"99999.9999") + " hour") + ;
  143. CHR(10)+CHR(10)+CHR(13)
  144.  
  145. **testing menampilkan format waktu
  146. _testing = _testing + " format in time : " + ;
  147. STRTRAN(TRANSFORM(INT(_hour),"99") + ":" + ;
  148. TRANSFORM(MOD(VAL(_min),60),"99") + ":" + ;
  149. TRANSFORM(MOD(VAL(_sec),60),"99"), ;
  150. " ", "0")
  151.  
  152. =MESSAGEBOX(_testing ,0+64,"Demo - Time Coounter
  153. ** aturan jam masuk: 2014-11-25 08:00
  154. rule_chkin=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_atur_masuk, nkanan_atur_masuk, 0)
  155. ** aturan jam pulang: 2014-11-25 16:30
  156. rule_chkout=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_atur_keluar, nkanan_atur_keluar, 0)
  157.  
  158. **testing menampilkan tgl dan waktu
  159. _testing = ;
  160. "Rule chkin date : " + LEFT(TRANSFORM(rule_chkin, "@D"),10) + ;
  161. " time : " + SUBSTR(TRANSFORM(rule_chkin, "@D"),12,5) + ;
  162. CHR(10)+CHR(13)+ ;
  163. "Rule chkout date : " + LEFT(TRANSFORM(rule_chkout, "@D"),10) + ;
  164. " time : " + SUBSTR(TRANSFORM(rule_chkout, "@D"),12,5) + ;
  165. CHR(10)+CHR(10)+;
  166. CHR(13)+ ;
  167. "Today chkin date : " + LEFT(TRANSFORM(today_chkin, "@D"),10) + ;
  168. " time : " + SUBSTR(TRANSFORM(today_chkin, "@D"),12,5) + ;
  169. CHR(10)+CHR(13)+ ;
  170. "Today chkout date : " + LEFT(TRANSFORM(today_chkout, "@D"),10) + ;
  171. " time : " + SUBSTR(TRANSFORM(today_chkout, "@D"),12,5) + ;
  172. CHR(10)+CHR(10)
  173.  
  174. _hour = ((rule_chkout-today_chkout)/3600) * IIF(rule_chkout-today_chkout<0, -1, 1)
  175. _min = STR(((rule_chkout-today_chkout)/3600*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  176. _sec = STR(((rule_chkout-today_chkout)/3600*60*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  177.  
  178. **testing menghitung overtime
  179. _testing = _testing + ;
  180. IIF(today_chkout-rule_chkout <= 0, ;
  181. "no overtime counts.", ;
  182. "overtime counts: " + TRANSFORM(_hour,"99999.9999") + " hour") + ;
  183. CHR(10)+CHR(10)+CHR(13)
  184.  
  185. **testing menampilkan format waktu
  186. _testing = _testing + " format in time : " + ;
  187. STRTRAN(TRANSFORM(INT(_hour),"99") + ":" + ;
  188. TRANSFORM(MOD(VAL(_min),60),"99") + ":" + ;
  189. TRANSFORM(MOD(VAL(_sec),60),"99"), ;
  190. " ", "0")
  191.  
  192. =MESSAGEBOX(_testing ,0+64,"Demo - Time Coounter
  193. ** aturan jam pulang: 2014-11-25 16:30
  194. rule_chkout=DATETIME(YEAR(today_chkin), MONTH(today_chkin), DAY(today_chkin), nkiri_atur_keluar, nkanan_atur_keluar, 0)
  196. **testing menampilkan tgl dan waktu
  197. _testing = ;
  198. "Rule chkin date : " + LEFT(TRANSFORM(rule_chkin, "@D"),10) + ;
  199. " time : " + SUBSTR(TRANSFORM(rule_chkin, "@D"),12,5) + ;
  200. CHR(10)+CHR(13)+ ;
  201. "Rule chkout date : " + LEFT(TRANSFORM(rule_chkout, "@D"),10) + ;
  202. " time : " + SUBSTR(TRANSFORM(rule_chkout, "@D"),12,5) + ;
  203. CHR(10)+CHR(10)+;
  204. CHR(13)+ ;
  205. "Today chkin date : " + LEFT(TRANSFORM(today_chkin, "@D"),10) + ;
  206. " time : " + SUBSTR(TRANSFORM(today_chkin, "@D"),12,5) + ;
  207. CHR(10)+CHR(13)+ ;
  208. "Today chkout date : " + LEFT(TRANSFORM(today_chkout, "@D"),10) + ;
  209. " time : " + SUBSTR(TRANSFORM(today_chkout, "@D"),12,5) + ;
  210. CHR(10)+CHR(10)
  211.  
  212. _hour = ((rule_chkout-today_chkout)/3600) * IIF(rule_chkout-today_chkout<0, -1, 1)
  213. _min = STR(((rule_chkout-today_chkout)/3600*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  214. _sec = STR(((rule_chkout-today_chkout)/3600*60*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  215.  
  216. **testing menghitung overtime
  217. _testing = _testing + ;
  218. IIF(today_chkout-rule_chkout <= 0, ;
  219. "no overtime counts.", ;
  220. "overtime counts: " + TRANSFORM(_hour,"99999.9999") + " hour") + ;
  221. CHR(10)+CHR(10)+CHR(13)
  222.  
  223. **testing menampilkan format waktu
  224. _testing = _testing + " format in time : " + ;
  225. STRTRAN(TRANSFORM(INT(_hour),"99") + ":" + ;
  226. TRANSFORM(MOD(VAL(_min),60),"99") + ":" + ;
  227. TRANSFORM(MOD(VAL(_sec),60),"99"), ;
  228. " ", "0")
  229.  
  230. =MESSAGEBOX(_testing ,0+64,"Demo - Time Coounter
  231. **testing menampilkan tgl dan waktu
  232. _testing = ;
  233. "Rule chkin date : " + LEFT(TRANSFORM(rule_chkin, "@D"),10) + ;
  234. " time : " + SUBSTR(TRANSFORM(rule_chkin, "@D"),12,5) + ;
  235. CHR(10)+CHR(13)+ ;
  236. "Rule chkout date : " + LEFT(TRANSFORM(rule_chkout, "@D"),10) + ;
  237. " time : " + SUBSTR(TRANSFORM(rule_chkout, "@D"),12,5) + ;
  238. CHR(10)+CHR(10)+;
  239. CHR(13)+ ;
  240. "Today chkin date : " + LEFT(TRANSFORM(today_chkin, "@D"),10) + ;
  241. " time : " + SUBSTR(TRANSFORM(today_chkin, "@D"),12,5) + ;
  242. CHR(10)+CHR(13)+ ;
  243. "Today chkout date : " + LEFT(TRANSFORM(today_chkout, "@D"),10) + ;
  244. " time : " + SUBSTR(TRANSFORM(today_chkout, "@D"),12,5) + ;
  245. CHR(10)+CHR(10)
  246.  
  247. _hour = ((rule_chkout-today_chkout)/3600) * IIF(rule_chkout-today_chkout<0, -1, 1)
  248. _min = STR(((rule_chkout-today_chkout)/3600*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  249. _sec = STR(((rule_chkout-today_chkout)/3600*60*60) * IIF(rule_chkout-today_chkout<0,-1,1),99)
  251. **testing menghitung overtime
  252. _testing = _testing + ;
  253. IIF(today_chkout-rule_chkout <= 0, ;
  254. "no overtime counts.", ;
  255. "overtime counts: " + TRANSFORM(_hour,"99999.9999") + " hour") + ;
  256. CHR(10)+CHR(10)+CHR(13)
  257.  
  258. **testing menampilkan format waktu
  259. _testing = _testing + " format in time : " + ;
  260. STRTRAN(TRANSFORM(INT(_hour),"99") + ":" + ;
  261. TRANSFORM(MOD(VAL(_min),60),"99") + ":" + ;
  262. TRANSFORM(MOD(VAL(_sec),60),"99"), ;
  263. " ", "0")
  264.  
  265. =MESSAGEBOX(_testing ,0+64,"Demo - Time Coounter
  266. **testing menghitung overtime
  267. _testing = _testing + ;
  268. IIF(today_chkout-rule_chkout <= 0, ;
  269. "no overtime counts.", ;
  270. "overtime counts: " + TRANSFORM(_hour,"99999.9999") + " hour") + ;
  271. CHR(10)+CHR(10)+CHR(13)
  273. **testing menampilkan format waktu
  274. _testing = _testing + " format in time : " + ;
  275. STRTRAN(TRANSFORM(INT(_hour),"99") + ":" + ;
  276. TRANSFORM(MOD(VAL(_min),60),"99") + ":" + ;
  277. TRANSFORM(MOD(VAL(_sec),60),"99"), ;
  278. " ", "0")
  279.  
  280. =MESSAGEBOX(_testing ,0+64,"Demo - Time Coounter
  281. **testing menampilkan format waktu
  282. _testing = _testing + " format in time : " + ;
  283. STRTRAN(TRANSFORM(INT(_hour),"99") + ":" + ;
  284. TRANSFORM(MOD(VAL(_min),60),"99") + ":" + ;
  285. TRANSFORM(MOD(VAL(_sec),60),"99"), ;
  286. " ", "0")
  287.  
  288. =MESSAGEBOX(_testing ,0+64,"Demo - Time Coounter")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!