Thomas "moenk" Meier moenk

## gist:541f4e4a632447532d7d1e6b312f95fd
strUnixtime = Math.Round((DateTime.UtcNow - New DateTime(1970, 1, 1, 0, 0, 0)).TotalSeconds).ToString

## photid.vb
Dim CHARS As String = "123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ"
Dim CHAR_NUM As Integer = CHARS.Length
encoded  = ""
dim fid as Int64 = Convert.ToInt64(photoid)
While fid >= CHAR_NUM
    Dim divx As Int64
    Dim modx As Int64
    divx = Math.DivRem(fid, CHAR_NUM, modx)
    encoded = CHARS(CInt(modx)) & encoded
    fid = divx

## gist:1ed37e9feef35fb8816549848f3b1eb9
arrDetails = strDetails.Split(Environment.NewLine.ToCharArray)

## gist:292decae85ca1164791ac03209e73841
intWeekNumber = System.Globalization.CultureInfo.InvariantCulture.Calendar.GetWeekOfYear(Datetime.Now, System.Globalization.CalendarWeekRule.FirstFourDayWeek,DayOfWeek.Monday)

## gist:813724392805850cd42118b895d30915
dtResponse = Newtonsoft.Json.JsonConvert.DeserializeObject(Of DataTable)(strResponse)

## gist:89304741ca48dc9ac02b17a27bff91d7
strID = System.Text.RegularExpressions.Regex.Replace(strID, "[^0-9a-zA-Z]+", "")

## gist:6b7a6b327d7b8c67d98220bd7052dd51
dt = dt.asenumerable.tolist.foreach(sub(row) row(“Yourcolumnname”)= cint(row(“Yourcolumnname”)))

## UiPath VB .net Remove Duplicate Rows from DataTable by Distinct Column
ExtractDataTable = ExtractDataTable.AsEnumerable().GroupBy(Function(i) i.Field(Of String)(“Mobiltelefon”)).Select(Function(g) g.First).CopyToDataTable

## gist:da2248d42ec47dab91113f1dddd7079f
array_double_values = Array.ConvertAll(array_string_values, Function(input As String) Double.Parse(input))

## Excel VBA create pivot tables from data table
' Quelle definieren
Dim wks1, wks2, wks3 As Worksheet
Set wks1 = ThisWorkbook.Sheets("Report")
Dim tableRange As Range
Set tableRange = wks1.UsedRange
wks1.ListObjects.Add(SourceType:=xlSrcRange, Source:=tableRange, xlListObjectHasHeaders:=xlYes).Name = "ReportDaten"

' Pivot erstellen
Dim pc1, pc2 As PivotCache
Dim pv1, pv2 As PivotTable
	Dim CHARS As String = "123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ"
	Dim CHAR_NUM As Integer = CHARS.Length
	encoded = ""
	dim fid as Int64 = Convert.ToInt64(photoid)
	While fid >= CHAR_NUM
	Dim divx As Int64
	Dim modx As Int64
	divx = Math.DivRem(fid, CHAR_NUM, modx)
	encoded = CHARS(CInt(modx)) & encoded
	fid = divx
	' Quelle definieren
	Dim wks1, wks2, wks3 As Worksheet
	Set wks1 = ThisWorkbook.Sheets("Report")
	Dim tableRange As Range
	Set tableRange = wks1.UsedRange
	wks1.ListObjects.Add(SourceType:=xlSrcRange, Source:=tableRange, xlListObjectHasHeaders:=xlYes).Name = "ReportDaten"

	' Pivot erstellen
	Dim pc1, pc2 As PivotCache
	Dim pv1, pv2 As PivotTable