RE: [Programmer-VB] Re: Hitung Tanggal

Sun, 14 May 2006 18:40:56 -0700

untuk masalah tanggal pake datediff
 
jangan pake textbox...tapi pake maskedbox...##/##/##
 
maskedbox1 sebagai tanggal pinjam...
maskedbox2 sebagai tanggal kembali
text1.text ...misal sebagai hasil harinya..
 
tinggal bikin... text1.text = datediff("d", maskedbox1, maskedbox2 )
gitu...semoga bermanfaat

vbPian <[EMAIL PROTECTED]> wrote:
Dim TglPinjam As Date
Dim TglKembali As Date
Dim DurasiPinjam As Integer, Terlambat As Integer
 
DurasiPinjam = 10
TglPinjam = format("10/10/2005","MM/DD/YYYY") '<-- Tanggal bisa berupa Textbox, Datepicker
TglKembali = format("21/10/2005","MM/DD/YYYY") '<-- Tanggal bisa berupa Textbox, Datepicker
 
 
Terlambat = TglKembali - (TglPinjam + DurasiPinjam)
 
If Terlambat > 0 then
    Msgbox "Terlambar " & Terlambat & " hari", vbInformation
Else
    Msgbox "Tidak Terlambat",vbInformation
Endif
 
Note: Untuk kasus tanggal diatas, terlambat 1 hari.
 
 
vbPian
[zZzz]
 
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]On Behalf Of Sistyo Alfan Tribowo
Sent: Wednesday, May 10, 2006 10:44 AM
To: [email protected]
Subject: RE: [Programmer-VB] Re: Hitung Tanggal

Kalau Pakai SQL server, try this :
 
declare @a as datetime
declare @b as datetime
 
set @a = cast('10 October 2006' as datetime)
set @b = cast('21 October 2006' as datetime)
 
select @a tanggal_a, @b tanggal_b, cast(@[EMAIL PROTECTED] as numeric) selisih_hari
 
outputnya :
tanggal_a                                  tanggal_b                                  selisih_hari
2006-10-10 00:00:00.000            2006-10-21 00:00:00.000            11
 
Substitute aja @a dan @b dengan field tanggal nya..
 
From: [email protected] [mailto:[email protected]] On Behalf Of Nurdin Sidiq
Sent: Wednesday, May 10, 2006 10:34 AM
To: [email protected]
Subject: [Programmer-VB] Re: Hitung Tanggal
 
Belum sih,
tapi ada ga yng lebih lengkap gitu sintax nya..

thanks


--- In [email protected], "Kudo, Shinichi"
<[EMAIL PROTECTED]> wrote:
>
> dah coba datediff("d",tgl1,tgl2)   "d" = day/hari
>
> ----- Original Message -----
> From: "Nurdin Sidiq" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Wednesday, May 10, 2006 7:56 AM
> Subject: [Programmer-VB] Hitung Tanggal
>
>
> > Tolongin donk, sy gi belajar nih.....
> >
> >
> > misal saya punya tabel seperti ini:
> >
> > NOPJM | KDBuku | NMBuku |TglPijam  | TglKembali | Keterlambatan
(Hari)|
> >
> > 00001 | BKOO1  |vb6     |10/10/2005| 21/10/2005 | ?
> >
> > TEMPO PEMINJAMAN HANYA 10 HARI BERARTI DR TABEL TERSEBUT U/ NO
> > PINJAMAN '00001' TERLAMBAT 11 HARI BAGAIMANA SIH SUPAYA BISA
> > MENGHASILKAN ANGKA 11 TERSEBUT.
> > MAKASIH
> >
> >
> >
> >
> >
> >
> > Wahana Programmer Groups Links
> >
> >
> >
> >
> > Yahoo! Groups Links
> >
> >
> >
> >
> >
> >
>






Blab-away for as little as 1ยข/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke