轉換日期格式（yyyy-mm-dd爲七位數的Julian格式

Question

我正在處理一個生成Google查詢的小應用程序，使用運算符「daterange：」可以限制你的結果Exampel（「searchstring」daterange：juliandate）

在谷歌的日期範圍運營商需要一個七位數字的朱利安格式。 我發現這樣的

datediff("yyyy","01/01/1900",date) & format(date,"y") 

一些示例需要幫助發現了一些代碼解決方案，以正常的日期格式轉換爲七位數字的朱利安格式（ VB代碼）

Answer 1

開始導入你的文件開始

Imports System.Globalization 

下面來轉換您的日期使用的代碼。

Dim dt As DateTime 
Dim jc As String 
dt = DateTime.ParseExact("2012/12/15", "yyyy/MM/dd", CultureInfo.InvariantCulture) 
jc = dt.Year.ToString + dt.DayOfYear.ToString