-=-
.
.....
  
| messages |
 
RSS
Direkomendasikan menggunakan brower Opera/Chrome/Firefox. Resolusi minimal 1024x768 | Powered by ____ |
 
KiOSS.Com
  
| Switch to Default View |
  
Nikmati Delphi-ID dalam berbagai versi tampilan :
Basic View (LOW Bandwidth)
Default View (Full)
Mobile Edition
Main Menu
..:: onWebTools ::..
..:: onLastPosts ::..
goto Postjumlah komponen maksimal dalam sebuah project(6)
 by d4mnf1y32
 on 21.May at 12:16
goto Posttanya grayscale to biner dengan scanline(1)
 by luckynvic
 on 20.May at 20:44
goto Posttanya looping biner to matriks(1)
 by luckynvic
 on 20.May at 20:10
goto Postsql error:acces denied for user....(2)
 by nasbms
 on 19.May at 16:54
goto Postpemanggilan frame(4)
 by nasbms
 on 19.May at 16:14
goto Posttanya AvLock(0)
 by azuriza
 on 19.May at 11:24
goto PostGet TDBEdit Value Menggunakan LookUp Grid(10)
 by henry_sys
 on 18.May at 11:27
goto Postmenghitung record dalam perulangan(4)
 by idhiel
 on 16.May at 13:53
goto Posttanya ascii(4)
 by mas_kofa
 on 16.May at 12:11
goto PostRawPrint Untuk Delphi XE2(0)
 by adewijaya
 on 15.May at 22:34
goto Postdatabase error..(4)
 by idhiel
 on 15.May at 15:57
goto Postbekasi, pt arila putra mahkota(3)
 by mas_kofa
 on 15.May at 15:37
goto Postbagaimana cara membaca file *.doc dg delphi?(0)
 by ficky
 on 15.May at 06:14
goto Posttanya biner to matriks(13)
 by diandewi
 on 14.May at 20:30

..:: onLast Articles ::..
..:: New Download ::..
Pascal-id.Org
Feeds -  Popular -  Latest
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: Perkenalan dan Absen
8 months, 3 weeks ago
RE: Alhamdulillah Buka Puasa Bersama
8 months, 4 weeks ago
RE: تَقَبَّلَ اللهُ مِنَّا وَمِنْكَ - Selamat Hari Raya Idul Fitri
8 months, 4 weeks ago
Lintas Situs
«
free web site stats and visitor tracking
•   Forum FAQ  •  Search  • 

penjumlahan tanggal
Delphi Indonesia Forum Index » Pemrograman » Bedah Kasus
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
Author Message
hafiezdOffline
Location:
Post subject: penjumlahan tanggal  PostPosted: 02/Apr/2009 13:42
onNovice


Joined: 26-Aug-2008
Posts: 8

Status: Offline
maaf mas-mas semua....
mungkin pertanyaan saya basi.

1. bagaimana cara menjumlahkan karakter dengan tanggal

contoh :

3 (hari) + 02/04/2009=??? (dengan hasil 05/04/2009)


2. penjumlahan tanggal dengan tanggal...


ok mas...
thanks b4
 
 View user's profile Send private message  
Reply with quote Back to top
heruxOffline
Location: Kediri
Post subject: RE: penjumlahan tanggal  PostPosted: 02/Apr/2009 14:54
onProfessional


Joined: 13-Jul-2006
Posts: 668
Location: Kediri
Status: Offline
Guuuuaaampang bangeeeett.
pasti blom buka delphi help niihh??
 
 View user's profile Send private message Visit poster's website Yahoo Messenger  
Reply with quote Back to top
heruxOffline
Location: Kediri
Post subject: RE: penjumlahan tanggal  PostPosted: 02/Apr/2009 14:55
onProfessional


Joined: 13-Jul-2006
Posts: 668
Location: Kediri
Status: Offline
Guuuuaaampang bangeeeett.
pasti blom buka delphi help niihh??

di unit DateUtils ?
 
 View user's profile Send private message Visit poster's website Yahoo Messenger  
Reply with quote Back to top
tstringlistOffline
Location:
Post subject: Re: RE: penjumlahan tanggal  PostPosted: 12/Apr/2009 10:09
onNovice


Joined: 14-Mar-2009
Posts: 11

Status: Offline
      herux wrote:
Guuuuaaampang bangeeeett.
pasti blom buka delphi help niihh??

di unit DateUtils ?


gak usah pakek DateUtils juga bisa, yang dihitung itu adalah string jadi harus di ubah dulu. coba deh liat contoh codingan ku, mungkin seperti ini yang dimaksud mas herux, atau mungkin udah ketemu solusinya.

      Code:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    hasil:TDate;
begin
  // 3 (hari) + 02/04/2009=??? (dengan hasil 05/04/2009)

  s := '3 (hari)';
  s:=Copy(s,0,Pos(' ',s)-1); //3 (hari) => 3
  hasil:=StrToDate('02/04/2009')+StrToInt(s); // 3 + 02/04/2009

  ShowMessage(DateToStr(hasil)); // 05/04/2009
end;

_________________
coding terus sampe botak
 
 View user's profile Send private message  
Reply with quote Back to top
Display posts from previous:     
Jump to:  
All times are GMT - 12 Hours
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
 Delphi Indonesia Forum Index » Pemrograman »  Bedah Kasus





Powered by PNphpBB2 © 2003-2009 The Zafenio Team
Credits


| Register | Lost Password ? |