Arsip: Mengurangi Jam

 
user image
more 12 years ago

AndyK

Rekan-rekan yang lebih tau, tolongin saya.... saya punya permasalahan mengurangi jam_akhir - jam_awal, database_nya pake Access, Type datanya Data/Time format_nya long time hh:mm:ss ada yg mo ngasih pencerahan..... terima kasih semuanya
user image
more 12 years ago

asiyrob

udah pernah dibahas...seacrh dulu?? {var jmawal,jmakhir,jmselisih:Tdatetime; ................ jmlselisih:=formatdatetime('hh:mm:ss',jmakhir)-formatdatetime('hh:mm:ss',jmawal);} atau gunakan dateutils pake betweenminutes
user image
more 12 years ago

mas_kofa

@asiyrob
udah pernah dibahas...seacrh dulu?? {var jmawal,jmakhir,jmselisih:Tdatetime; ................ jmlselisih:=formatdatetime('hh:mm:ss',jmakhir)-formatdatetime('hh:mm:ss',jmawal);}
betulkah bisa berjalan..... perasaan setau ku fungsi formatdatetime keluarannya String bukan TDateTime
user image
more 12 years ago

asiyrob

maaf klo salah.. lg "mode ngayal".. klo ditambah..strtodate?? {var jmawal,jmakhir,jmselisih:Tdatetime; ................ jmlselisih:=strtodate(formatdatetime('hh:mm:ss',jmakhir)-formatdatetime('hh:mm:s s',jmawal));} :?
user image
more 12 years ago

mas_kofa

masih belum bisa juga mas @asiyrob mbok sebelum njawab dicoba dulu...jangan ngayal................
user image
more 12 years ago

cyber_hecker

uses DateUtils;
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
  lSekarang: TDateTime;
begin
  lSekarang := Now;
  ShowMessage(
    'Sekarang : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', lSekarang)+#10#13+
    'Kurang 2 Hari : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncDay(lSekarang,-2))+#10#13+
    'Tambah 4 Hari : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncDay(lSekarang,4))+#10#13+
    'Tambah 3 Bulan : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncMonth(lSekarang,3))+#10#13+
    'Tambah 5 Jam : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncHour(lSekarang,5))+#10#13+
    'Kurang 10 Menit : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncMinute(lSekarang, -10))
  );
end;
met nyoba :P, jangan lupa usesnya
user image
more 12 years ago

AndyK

makasih semua............... pencerahannya saya udah dpt berkat rekan2 var JamMsk,JamKlr,Hasil:TTime; begin JamMsk:=DM.ATKehadiran.FieldByName('Jam_Masuk').AsDateTime; JamKlr:=StrToTime(LblJam.Caption); Hasil:=(JamKlr-JamMsk); end
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com