API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 24th, 2014
195
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 2.71 KB | None | 0 0
raw download clone embed print report diff
  1. CLEAR
  2. *jam pulang seharusnya 16:30
  3. jamseharusnya='16:30'
  4.  
  5. jamini='17:00' &&jam semaunya saya pulang
  6.  
  7. Do Case
  8. Case Val(Left(Alltrim(jamini),2)) = Val(Left(Alltrim(jamseharusnya),2))
  9.     jmnya='00'
  10.     If Val(Right(Alltrim(jamini),2)) = Val(Right(Alltrim(jamseharusnya),2))
  11.         dtknya='00'
  12.     Else
  13.         If Val(Right(Alltrim(jamini),2)) < Val(Right(Alltrim(jamseharusnya),2))
  14.             dtksh=Val(right(Alltrim(jamseharusnya),2))
  15.             dtkni=Val(right(Alltrim(jamini),2))
  16.             dtkx=dtksh-dtkni
  17.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx))) =>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  18.         Else
  19.             If Val(Right(Alltrim(jamini),2)) > Val(Right(Alltrim(jamseharusnya),2))
  20.                 dtksh=Val(right(Alltrim(jamseharusnya),2))
  21.                 dtkni=Val(right(Alltrim(jamini),2))
  22.                 dtkx=dtkni-dtksh
  23.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx))) =>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  24.             Endif
  25.         Endif
  26.     Endif
  27.  
  28. Case Val(Left(Alltrim(jamini),2))> Val(Left(Alltrim(jamseharusnya),2))
  29.     jmsh=Val(Left(Alltrim(jamseharusnya),2))
  30.     jmni=Val(Left(Alltrim(jamini),2))
  31.     jmnx=jmni-jmsh
  32.     jmnya=IIF(LEN(ALLTRIM(STR(jmnx))) =>2,jmnx,PADL(jmnx,2,'0') )
  33.  
  34.     If Val(Right(Alltrim(jamini),2)) = Val(Right(Alltrim(jamseharusnya),2))
  35.         dtknya='00'
  36.     Else
  37.         If Val(Right(Alltrim(jamini),2)) < Val(Right(Alltrim(jamseharusnya),2))
  38.             dtksh=Val(right(Alltrim(jamseharusnya),2))
  39.             dtkni=Val(right(Alltrim(jamini),2))
  40.             dtkx=dtksh-dtkni
  41.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx))) =>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  42.         Else
  43.             If Val(Right(Alltrim(jamini),2)) > Val(Right(Alltrim(jamseharusnya),2))
  44.                 dtksh=Val(right(Alltrim(jamseharusnya),2))
  45.                 dtkni=Val(right(Alltrim(jamini),2))
  46.                 dtkx=dtkni-dtksh
  47.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx)))=>21,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  48.             Endif
  49.         Endif
  50.     Endif
  51. Case  Val(Left(Alltrim(jamini),2)) < Val(Left(Alltrim(jamseharusnya),2))
  52.     jmsh=Val(Left(Alltrim(jamseharusnya),2))
  53.     jmni=Val(Left(Alltrim(jamini),2))
  54.     jmnx=jmsh-jmni
  55.     jmnya=IIF(LEN(ALLTRIM(STR(jmnx))) >1,jmnx,PADL(jmnx,2,'0') )
  56.  
  57.     If Val(Right(Alltrim(jamini),2)) = Val(Right(Alltrim(jamseharusnya),2))
  58.         dtknya='00'
  59.     Else
  60.         If Val(Right(Alltrim(jamini),2))< Val(Right(Alltrim(jamseharusnya),2))
  61.             dtksh=Val(right(Alltrim(jamseharusnya),2))
  62.             dtkni=Val(right(Alltrim(jamini),2))
  63.                 dtkx=dtksh-dtkni
  64.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx)))=>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  65.         Else
  66.             If Val(Right(Alltrim(jamini),2)) > Val(Right(Alltrim(jamseharusnya),2))
  67.                 dtksh=Val(right(Alltrim(jamseharusnya),2))
  68.                 dtkni=Val(right(Alltrim(jamini),2))
  69.                 dtkx=dtkni-dtksh
  70.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx))) =>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  71.             Endif
  72.         Endif
  73.     Endif
  74. ENDCASE
  75. *selisi jam detik antara jam seharusnya dan semaunya saya pulang jam berapa
  76. hasilnya=jmnya+':'+dtknya
  77. ?hasiln
  78. *jam pulang seharusnya 16:30
  79. jamseharusnya='16:30'
  80.  
  81. jamini='17:00' &&jam semaunya saya pulang
  82.  
  83. Do Case
  84. Case Val(Left(Alltrim(jamini),2)) = Val(Left(Alltrim(jamseharusnya),2))
  85.     jmnya='00'
  86.     If Val(Right(Alltrim(jamini),2)) = Val(Right(Alltrim(jamseharusnya),2))
  87.         dtknya='00'
  88.     Else
  89.         If Val(Right(Alltrim(jamini),2)) < Val(Right(Alltrim(jamseharusnya),2))
  90.             dtksh=Val(right(Alltrim(jamseharusnya),2))
  91.             dtkni=Val(right(Alltrim(jamini),2))
  92.             dtkx=dtksh-dtkni
  93.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx))) =>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  94.         Else
  95.             If Val(Right(Alltrim(jamini),2)) > Val(Right(Alltrim(jamseharusnya),2))
  96.                 dtksh=Val(right(Alltrim(jamseharusnya),2))
  97.                 dtkni=Val(right(Alltrim(jamini),2))
  98.                 dtkx=dtkni-dtksh
  99.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx))) =>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  100.             Endif
  101.         Endif
  102.     Endif
  103.  
  104. Case Val(Left(Alltrim(jamini),2))> Val(Left(Alltrim(jamseharusnya),2))
  105.     jmsh=Val(Left(Alltrim(jamseharusnya),2))
  106.     jmni=Val(Left(Alltrim(jamini),2))
  107.     jmnx=jmni-jmsh
  108.     jmnya=IIF(LEN(ALLTRIM(STR(jmnx))) =>2,jmnx,PADL(jmnx,2,'0') )
  109.  
  110.     If Val(Right(Alltrim(jamini),2)) = Val(Right(Alltrim(jamseharusnya),2))
  111.         dtknya='00'
  112.     Else
  113.         If Val(Right(Alltrim(jamini),2)) < Val(Right(Alltrim(jamseharusnya),2))
  114.             dtksh=Val(right(Alltrim(jamseharusnya),2))
  115.             dtkni=Val(right(Alltrim(jamini),2))
  116.             dtkx=dtksh-dtkni
  117.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx))) =>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  118.         Else
  119.             If Val(Right(Alltrim(jamini),2)) > Val(Right(Alltrim(jamseharusnya),2))
  120.                 dtksh=Val(right(Alltrim(jamseharusnya),2))
  121.                 dtkni=Val(right(Alltrim(jamini),2))
  122.                 dtkx=dtkni-dtksh
  123.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx)))=>21,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  124.             Endif
  125.         Endif
  126.     Endif
  127. Case  Val(Left(Alltrim(jamini),2)) < Val(Left(Alltrim(jamseharusnya),2))
  128.     jmsh=Val(Left(Alltrim(jamseharusnya),2))
  129.     jmni=Val(Left(Alltrim(jamini),2))
  130.     jmnx=jmsh-jmni
  131.     jmnya=IIF(LEN(ALLTRIM(STR(jmnx))) >1,jmnx,PADL(jmnx,2,'0') )
  132.  
  133.     If Val(Right(Alltrim(jamini),2)) = Val(Right(Alltrim(jamseharusnya),2))
  134.         dtknya='00'
  135.     Else
  136.         If Val(Right(Alltrim(jamini),2))< Val(Right(Alltrim(jamseharusnya),2))
  137.             dtksh=Val(right(Alltrim(jamseharusnya),2))
  138.             dtkni=Val(right(Alltrim(jamini),2))
  139.                 dtkx=dtksh-dtkni
  140.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx)))=>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  141.         Else
  142.             If Val(Right(Alltrim(jamini),2)) > Val(Right(Alltrim(jamseharusnya),2))
  143.                 dtksh=Val(right(Alltrim(jamseharusnya),2))
  144.                 dtkni=Val(right(Alltrim(jamini),2))
  145.                 dtkx=dtkni-dtksh
  146.             dtknya=IIF(LEN(ALLTRIM(STR(dtkx))) =>2,ALLTRIM(STR(dtkx)),PADL(dtkx,2,'0'))
  147.             Endif
  148.         Endif
  149.     Endif
  150. ENDCASE
  151. *selisi jam detik antara jam seharusnya dan semaunya saya pulang jam berapa
  152. hasilnya=jmnya+':'+dtknya
  153. ?hasiln
  154. *selisi jam detik antara jam seharusnya dan semaunya saya pulang jam berapa
  155. hasilnya=jmnya+':'+dtknya
  156. ?hasilnya
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!