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

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 AKSES = "1" Else AKSES = "0" End If 'Class Proses DML (Simpan Data) xSIMPAN.SIMPAN_AKSES(Y, DGVSample.Rows(iROW).Cells(1).Value, AKSES) N

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

LDAP In VB.Net

hey there friends, here is this i would like to share another simple code in developing an application in VB.Net by now i would like to share how the way to use a LDAP (Lightweight Directory Access Protocol). at the time i need to develop a system which needs to use login user using domain user (ex: peoplename@company.co.id) no longer using user level in database. it is so confused to me to make it real at the time, because i never make it before. but this is the way how i make it happened. just make a simple form as below : next level : add another reference in your visual studio project (System.DirectoryService.dll) next : make a new class Imports System Imports System.Text Imports System.Collections Imports System.Security.Principal Imports System.DirectoryServices Public Class LDAPControlClass Private NamaDomain As String = "company.co.id" Private MemberOf As New List(Of String) Public Function LoginLDAP(ByVal Username

OPRAG-OPREG

Search This Blog