How To Get Week Number Of The Year

Once upon a time i need to create project using week number of the year. means i need to have a number which shows me week number. so below is how to get that result.

note :
i wrote something like (xxxxx - 1) that is because my project has a different week start date, so if i did not (-1) i'll have incorrect number. please remember the correct number based on world datetime is without (-1), that is my case my personal case....

code : Val(CAL.GetWeekOfYear(TanggalBerapa, CWR, DOW)) - 1

Imports System.Globalization

Public Sub CHECKING_WEEK()

        Dim CI As New CultureInfo("en-IN")
        Dim CAL As Calendar = CI.Calendar

        Dim CWR As CalendarWeekRule = CI.DateTimeFormat.CalendarWeekRule
        Dim DOW As DayOfWeek = CI.DateTimeFormat.FirstDayOfWeek

        Dim Tgl As String = DtpDATE.Value.Day
        Dim Bln As String = DtpDATE.Value.Month
        Dim Thn As String = DtpDATE.Value.Year

        Dim TanggalBerapa As String = Thn & "-" & Bln & "-" & Tgl

        CAL.GetWeekOfYear(DateTime.Now, CWR, DOW)
        MsgBox("Tanggal " & Tgl & "-" & Bln & "-" & Thn & _
               " Adalah Minggu Ke-" & _
               Val(CAL.GetWeekOfYear(TanggalBerapa, CWR, DOW)) - 1 _
               & " Di Tahun " & Year(Now) & "")
    End Sub

Comments

VS2015 using Bootstrap

this is how you gonna do that.. yes it is sometimes learning using tutorial book makes us boring.. so this tutorial is how to make it simple but very useful in understanding Tutorial To Download

CheckBox dalam DataGridView VB.Net

Pada saat membuat aplikasi (VB.Net) untuk materi skripsi, terbesit bagaimana cara baru untuk memberikan hak akses user secara dinamis pada sistem. setelah dicoba dengan tanya-tanya. akhirnya bisa mendapatkan cara itu... wah sesuatu banget dah.... inti dari posting ini hanya pada barisan kode berikut : Private Sub BtnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSIMPAN.Click Dim Y As String = Mid(CmbUSER.Text, 1, 7) Dim iROW As Integer Dim AKSES As String For iROW = 0 To DGVSample.Rows.Count - 1 'AksesBox = Nama CheckBox yang ada di DatagridView If DGVSample.Rows(iROW).Cells("AksesBox").Value Then ...

Create Comment As .xls In Farpoint Spread

Private Sub TAGS_PARENTING() Dim DTPopUp As New DataTable With DTPopUp .Columns.Add("SEQ", GetType(String)) .Columns.Add("QTY", GetType(String)) .Columns.Add("ETD", GetType(String)) .Columns.Add("ETA", GetType(String)) DTPopUp = MePostab_Control.Cari_TAG_PARENTING End With With FPPOSTAB For GG As Integer = 0 To .ActiveSheet.RowCount - 1 ...

OPRAG-OPREG

Search This Blog