Imports System
Public Class Test
Public Shared Sub Main()
Dim dteStartOfYear As Date
Dim dteWorkingDate As Date
Dim intWeeks As Integer
dteStartOfYear = DateSerial(2012, 7, 1)
dteWorkingDate = DateSerial(2012, 10, 3)
intWeeks = DateDiff("ww", dteStartOfYear, dteWorkingDate)
console.writeline(intWeeks)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQpEaW0gZHRlU3RhcnRPZlllYXIgQXMgRGF0ZQpEaW0gZHRlV29ya2luZ0RhdGUgQXMgRGF0ZQpEaW0gaW50V2Vla3MgQXMgSW50ZWdlcgoKICAgIGR0ZVN0YXJ0T2ZZZWFyID0gRGF0ZVNlcmlhbCgyMDEyLCA3LCAxKQogICAgZHRlV29ya2luZ0RhdGUgPSBEYXRlU2VyaWFsKDIwMTIsIDEwLCAzKQogICAgCiAgICBpbnRXZWVrcyA9IERhdGVEaWZmKCJ3dyIsIGR0ZVN0YXJ0T2ZZZWFyLCBkdGVXb3JraW5nRGF0ZSkKICAgICAKICAgIGNvbnNvbGUud3JpdGVsaW5lKGludFdlZWtzKQoKCUVuZCBTdWIKRW5kIENsYXNz