☆【阿源橘子店】☆

程式：VB.NET
環境：Visual Studio 2005
目的：西元換算民國年月日
源碼：

Dim today As String = DateAdd(DateInterval.Year, -1911, Now).ToString("yyMMdd")

說明：先取得系統時間，用dateadd函式指定調整年份，負數為減去，正數為增加，回傳值為date格式，視需要轉換為string並格式化為yyMMdd

顯示：

970224