Tip

 

    Public Shared Function ToDateEOM(ByVal dt As Object) As DateTime
        '//-- หาวันที่สิ้นเดือน EndOfMonth โดยใช้รูปแบบตาม culture ดังนี้
        '//-- ถ้า CultureName en-US ต้องเป็น MM/dd/yyyy (ปีใช้คศ)
        '//-- ถ้า CultureName en-GB ต้องเป็น dd/MM/yyyy (ปีใช้คศ)
        '//-- ถ้า CultureName th-TH ต้องเป็น dd/MM/yyyy (ปีใช้พศ)
        Dim tmpDate As DateTime
        Try
            tmpDate = System.DateTime.Parse(dt.ToString())
            Return DateSerial(Year(tmpDate), Month(tmpDate) + 1, 1).AddDays(-1)
        Catch
            Return DateTime.MinValue
        End Try
    End Function

เขียน SQL Select ให้มีเลขลำดับ 1,2,3 ใน Access, SQL2000 

select (
SELECT COUNT(ID) + 1 AS Counter
FROM users usr
WHERE usr.ID < users.ID
) AS Counter,
name
from users

หมายเหตุ มีฟิลด์ ID เป็น number, 
                           Name เป็น ชื่อ
ผลที่ได้จะเป็น

counter           name
----------           -------------
1                       aaa
2                       bbb
3                       ccc

Public Function ClearALL(ByRef MyForm As VB.Form)
    For i = 0 To MyForm.Controls.Count - 1
        If UCase(TypeName(MyForm.Controls(i))) = UCase("TextBox") Then
            MyForm.Controls(i).Text = ""
        End If
    Next
End Function
 
 Private Sub Command1_Click()
    Call ClearALL(Me)
End Sub