edit3.text:=datetostr(strtodate(edit2.text)-strtodate(edit1.text))  ===>
diganti
edit3.text:=floattostr(strtodate(edit2.text)-strtodate(edit1.text))
----- Original Message -----
From: "n15aya" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, October 23, 2004 3:51 PM
Subject: [Delphindo] pengurangan 2 tanggal


>
>
>
> mohon pencerahan;
> saya memberikan input tanggal1 ke edit1 dan tanggal2 ke edit2,
> edit3 untuk hasil pengurangan tanggal2-tanggal1 melalui procedure
> click.
> proc buttonclick >>>
> begin
> edit3.text:=datetostr(strtodate(edit2.text)-strtodate(edit1.text))
> end;
>
> hasil pengurangan ternyata dalam format tanggal,bagaimana biar berupa
> angka??
> misal:17/10/04-13/10/04 agar hasilnya=4 ?
>
> terimakasih.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Berlangganan: [EMAIL PROTECTED]
> Stop Berlangganan: [EMAIL PROTECTED]
> Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
>
>




Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]



Yahoo! Groups Sponsor
ADVERTISEMENT
click here
Web Bug from http://us.adserver.yahoo.com/l?M=294855.5468653.6549235.3001176/D=groups/S=:HM/A=2376776/rand=746532615


Yahoo! Groups Links

Reply via email to