Format date as yyyy-mm-dd using vbscript

- 
Function GetFormattedDate
  strDate = CDate(Date)
  strDay = DatePart("d", strDate)
  strMonth = DatePart("m", strDate)
  strYear = DatePart("yyyy", strDate)
  If strDay < 10 Then
    strDay = "0" & strDay
  End If
  If strMonth < 10 Then
    strMonth = "0" & strMonth
  End If
  GetFormattedDate = strYear & "-" & strMonth & "-" & strDay
End Function

'For example: the date string will be 2011-03-21
GetFormattedDate()

Reference

http://www.w3schools.com/vbScript/func_formatdatetime.asp

Comments

Post a Comment

Popular posts from this blog

How to write data into a excel file using vbscript

-
' This sentence is not work. 'Option Explicit Dim objExcel, strExcelPath, objSheet ' You need to create the Example.xls file first. strExcelPath = "c:\Scripts\Example.xls" ' Open specified spreadsheet and select the first worksheet. Set objExcel = CreateObject("Excel.Application") objExcel.WorkBooks.Open strExcelPath Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) ' Modify a cell. row 3, col 2 objSheet.Cells(3, 2).Value = "Test" ' Add a row before row 5. objSheet.Range("B5").EntireRow.Insert ' Label the new rows. Row 4 is unchanged, ' but what was row 5 is now row 6. objSheet.Cells(4, 2).Value = "Row 4" objSheet.Cells(5, 2).Value = "Row 5" objSheet.Cells(6, 2).Value = "Row 6" ' Save and quit. objExcel.ActiveWorkbook.Save objExcel.ActiveWorkbook.Close objExcel.Application.Quit Check the file exist. If you want to do this. strFile = "c:\Scripts\Report.txt ' C...
Read more

Cohesion and coupling in programmatic design

-
程式模組化設計的內聚力與耦合力   在程式模組化設計中，常以內聚力，耦合力來評量模組。 請定義內聚力（Cohesion）及耦合力（Coupling）。（10 分） 請 說 明 ： 通 訊 內 聚 力 （ Communicational Cohesion ） 及 邏 輯 內 聚 力 （ Logical Cohesion）。（10 分） 請說明：資料耦合（Data Coupling）及內容耦合（Content Coupling）。（1 **內聚力（Cohesion）**是評量模組內部元素（例如函數、類別、過程）彼此之間相互關聯程度的概念。內聚力描述了一個模組內元素彼此相關的程度，其目標是確保模組的內部元素具有相關性，以便提高模組的可讀性、可維護性和可重用性。 內聚力： 評估模組內元素的相關性，確保其具相關性，以提高模組的唯讀蟲（維讀重） 耦合力： 評估模組間的相依或連接程度。低耦合相依低易修改維護。 **耦合力（Coupling）**是評量模組之間的相依性或連接程度的概念。耦合力描述了一個模組與其他模組之間的關聯程度，較低的耦合力通常表示模組間的相依性較低，模組可以更容易獨立地修改和維護。 在內聚力方面： 1. **通訊內聚力（Communicational Cohesion）**是指一個模組內的元素彼此相關，因為它們在執行某些通信或操作，例如，一個模組包含了所有與文件操作相關的功能。這種內聚力是基於元素之間的通信或互動。 2. **邏輯內聚力（Logical Cohesion）**是指一個模組內的元素彼此相關，因為它們在執行相似的邏輯操作。例如，一個模組內包含所有數學運算的功能，而不僅僅是特定類型的運算。這種內聚力是基於元素執行的邏輯操作的相似性。 在耦合力方面： 1. **資料耦合（Data Coupling）**是指兩個模組之間的耦合僅涉及數據交換。這表示兩個模組通常只通過參數或數據交換信息，而不依賴彼此的內部結構或算法。資料耦合力較低，模組之間的獨立性較高。 2. **內容耦合（Content Coupling）**是指兩個模組之間的耦合涉及訪問彼此的內部結構或內容，如變數、函數或類別。這使得兩個模組更加相依，因為它們需要了解對方的內部實現細節。內容耦合力較高，模組之間的獨立性較低。 內聚力和耦合力的良好平衡有助於建立易於維護和擴展的模組化系統。高內聚力...
Read more