GIRL ENGINEER

2017年6月5日星期一

[Windows Forms] [VB.NET] 取得日期資料處理


'Get the first day of the month

'取得當月的第一天
Public Function FirstDayOfMonth(ByVal sourceDate As DateTime) As DateTime

  Return New DateTime(sourceDate.Year, sourceDate.Month, 1)

End Function


'Get the last day of the month

'取得當月的最後一天

Public Function LastDayOfMonth(ByVal sourceDate As DateTime) As DateTime

  Dim lastDay As DateTime = New DateTime(sourceDate.Year, sourceDate.Month, 1)

  Return lastDay.AddMonths(1).AddDays(-1)

End Function


'根據日期取得上個月的最後一天

Public Shared Function LastDayOfLastMonth(ByVal sourceDate As DateTime) As DateTime

        Dim lastDay As DateTime = New DateTime(sourceDate.Year, sourceDate.Month, 1)

        Return lastDay.AddMonths(0).AddDays(-1)

End Function


'根據日期取得下個月的第一天

Public Shared Function FirstDayOfNextMonth(ByVal sourceDate As DateTime) As DateTime

        Dim NextDay As DateTime = New DateTime(sourceDate.Year, sourceDate.Month, 1)

        Return NextDay.AddMonths(1).AddDays(0)



End Function

2017年5月23日星期二

[Windows Forms] [VB.NET] TEXTBOX 輸入限制 -只能輸入字母


  Private Sub txtbox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtbox1.KeyPress

        '只能輸入字母

        If Char.IsLetter(e.KeyChar) = True Or Char.IsControl(e.KeyChar) = True Then

            e.Handled = False

        Else

            e.Handled = True

        End If

    End Sub

2017年1月23日星期一

[ADOBE] [PDF] 文件轉向

如果你收到一個PDF 文件需要轉向，你又只有安裝Adobe Reader的話
可以試試看你的印表機如果有PDF Writer
就可以在Reader中再次列印，選到PDF Writer
另存檔案
就可以得到轉好的檔案唷!

如果你沒有PDF Writer
可以試著安裝 CutePDF Writer

[OFFICE 2010] [OUTLOOK] Outlook 中開啟或儲存電子郵件附件時出現錯誤訊息：「無法建立檔案」

Can not create file:XXXX. Right-click the folder you want to create the file in, and the click Properties on the shortcut menu to check your permissions for the folder.