{VB} 函數參考位罝

VarType 函數
http://yuan.yocjh.kh.edu.tw/%E6%95%99%E6%9D%90/vb%E5%87%BD%E6%95%B8.htm

http://yes.nctu.edu.tw/vb/6_Func/VarType.htm



InStrRev-->從右邊找符合字串

IsNumeric-->字串整串是數字就傳回True

從尾端搜尋字串位置
InstrRev(string,searchstr)

判定變數是否為陣列
IsArray(varname)

{VB6}透過週期找出所屬週期的第一日日期

以下範例為
A:2011/01/01為第一周，則第二週的第一日日期為何？Q:2011/01/03

Private Sub Command1_Click()
  
    Dim iDate As Date         '指定第一周日期
    Dim i As Long                '指定週數

    iDate = "2011-01-01"
    i = 2
    iDate = iDate + (i - 1) * 7 - 1

    'Weekday(第一周日期,星期幾為新的一週)
    iDate = iDate - Weekday(iDate, vbMonday) + 1

    '結果顯示
    Label1.Caption = iDate

End Sub