Re: [Programmer-VB] Ngambil hari pertama dan hari terakhir

[Hendy Wibisono]

dim HariPertama as date
dim HariTerakhir as date

sub GetHari(Bulan as byte, Tahun as integer)
    if bulan <> 12 then
        HariPertama = cdate(format("1/" & cstr(Bulan) & "/" & 
cstr(Tahun),"dd/mm/yyyy")
        HariTerakhir = cdate(format("1/" & cstr(Bulan + 1) & "/" & 
cstr(Tahun),"dd/mm/yyyy") - 1
    else
        HariPertama = cdate(format("1/" & cstr(Bulan) & "/" & 
cstr(Tahun),"dd/mm/yyyy")
        HariTerakhir = cdate(format("1/1"  & "/" & cstr(Tahun + 
1),"dd/mm/yyyy") - 1
    end if
end sub

NB: Code diatas belum dicoba dirunning yah :)

Semoga membantu

Ronal Baharuddin Hutagaol wrote:
>
> Dear All
>  
> Gimana caranya mengambil Hari Pertama dan Hari Terakhir setiap 
> Bulannya (Date) atau di bulan yang kita tentukan.
>  
> Terima Kasih atas bantuannya.....
>