1. หากคุณเลือก Keep File หมายถึงเก็บไฟล์ไว้ แสดงว่าไฟล์นั้นไม่ได้หายไปใหนครับ มันไปอยู่ที่ Desktop ของ Admin ครับ
2. หากคุณไม่ได้เลือก Keep File นั่นแสดงว่าไฟล์ของคุณถูกลบไปแล้ว ให้ใช้โปรแกรมเรียกคืนไฟล์ เช่น Recuva ครับ โดยเลือกที่จะเรียกคืนไฟล์จากโฟลเดอร์ C:\users\
06 มกราคม 2559
Calculate Age (VB.NET) ฟังก์ชั่นคำนวณอายุเป็น ปี เดือน ครับ
'ฟังก์ชั่นคำนวณอายุเป็น ปี เดือน ครับ
'How to Calcuate Aeg ....Year....Month
Function CalculateAge(ByVal YYYYMMYY As String)
Dim AgeYear As Integer
AgeYear = Now.Year - CInt(Mid(YYYYMMYY, 1, 4))
Dim MyMonth As Integer
Dim AgeMonth As Integer
MyMonth = CInt(Mid(YYYYMMYY, 5, 2))
If MyMonth > Now.Month Then
AgeMonth = (12 - CInt(Mid(YYYYMMYY, 5, 2))) + Now.Month
AgeYear = AgeYear - 1
Else
AgeMonth = Now.Month - CInt(Mid(YYYYMMYY, 5, 2))
End If
Return (AgeYear & " Year " & AgeMonth & " Month")
End Function
'How to Calcuate Aeg ....Year....Month
Function CalculateAge(ByVal YYYYMMYY As String)
Dim AgeYear As Integer
AgeYear = Now.Year - CInt(Mid(YYYYMMYY, 1, 4))
Dim MyMonth As Integer
Dim AgeMonth As Integer
MyMonth = CInt(Mid(YYYYMMYY, 5, 2))
If MyMonth > Now.Month Then
AgeMonth = (12 - CInt(Mid(YYYYMMYY, 5, 2))) + Now.Month
AgeYear = AgeYear - 1
Else
AgeMonth = Now.Month - CInt(Mid(YYYYMMYY, 5, 2))
End If
Return (AgeYear & " Year " & AgeMonth & " Month")
End Function
สมัครสมาชิก:
บทความ (Atom)