Selasa, 30 Juni 2015

Menghitung selisih tahun dan Bulan (Mysql Function)



Berikut ini adalah kodenya:
DELIMITER $$

CREATE DEFINER=`itk`@`localhost` FUNCTION `menghitunghari`(awal datetime,akhir datetime) RETURNS char(30) CHARSET latin1
BEGIN
declare tahun int;
declare bulan int;
declare hasil char(100);

set tahun=year(akhir)-year(awal);
set bulan=month(akhir)-month(awal);

if sign(bulan) <=0 then
set bulan=12 - abs(bulan);
set tahun=tahun - 1;
end if;

 set hasil =concat(convert(tahun,char(30)),'Tahun','Bulan',convert(bulan,char(30)));


RETURN hasil;
END
---------------------------------------------------------------------------------------------------------

Kemudian untuk menyeleknya :
select menghitunghari('2015-02-12','2015-10-12') as 'Hitung seleisih tanggal'

Senin, 04 Mei 2015

Menghitung Usia (HARI,BULAN,TAHUN) VB.NET V 2010

Untuk menhitung berapa usia seseorang yang di hitung dari tanggal lahir dan menghasilkan rincian(hari,bulan,tahun).
kodenya adalah sebagai berikut:

 Public Function HIT_UMUR(ByVal umur As Date, ByRef hasil As String)
        Dim tahun As Integer, bulan As Integer, hari As Integer

        While tahun <= (Date.Now.Year - umur.Year)

            While bulan <= (Date.Now.Month - umur.Month)

                While hari <= (Date.Now.Day - umur.Day)

                    hari = hari + 1

                End While

                bulan = bulan + 1

            End While

            tahun = tahun + 1

        End While



        tahun -= 1 : bulan -= 1 : hari -= 1


        If bulan <= 0 Then
            bulan = 0
        ElseIf hari <= 0 Then

            hari = 0

        End If

        hasil = tahun & " Tahun " & bulan & " Bulan " & hari & " hari"

    End Function

how coffee can prevent cancer

Coffee and Cancer: An Examination of the Relationship   Coffee, one of the most consumed beverages worldwide, has been the subject of extens...