home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Date_Time2200143192011.psc / Calender_TMP.bas < prev    next >
BASIC Source File  |  2011-03-18  |  3KB  |  74 lines
  1. Attribute VB_Name = "Calender_TMP"
  2. Function DateBy_AddDayOnDay(DateNows As String, ToDay As Long, Optional MonthOut As Integer, Optional YearOut As Integer, Optional NextMonth As Boolean) As String
  3. Dim s_nDatas_D() As String, s_nDatas_E() As String
  4. Dim s_Day As Long, s_Month As Integer, s_Year As Integer
  5. Dim s_iX As Integer, s_Int As Integer, s_Log As Long, s_y As Integer
  6.  
  7. GetString DateNows & "/", "/", s_nDatas_D()
  8.  
  9. s_Log = ToDay
  10. s_Day = AddDayOnMonth(DateNows, ToDay, s_Month, MonthOut)
  11. 'MonthOut = MonthOut - 1
  12. 's_Month = s_Month - Val(s_nDatas_D(1))
  13. ''MonthOut = s_Month - Val(s_nDatas_D(1))
  14. s_Year = s_Year + Int((s_Month - 0) / 12) + Val(s_nDatas_D(2))
  15. ''YearOut = Int(MonthOut / 12)
  16. 'If MonthOut Mod 12 <> 0 Then s_Year = s_Year + 1  '. . .
  17. s_Month = s_Month Mod 12
  18. If s_Month = 0 Then s_Month = 12: s_Year = s_Year - 1
  19. DateBy_AddDayOnDay = s_Day & "/" & s_Month & "/" & s_Year
  20. 'MonthOut = MonthCount(DateNows, DateBy_AddDayOnDay)
  21. YearOut = Int(MonthOut / 12)
  22. End Function
  23.  
  24. Function DateBy_AddDayOnMonth(DateNows As String, ToMonth As Long, Optional DayOut As Long, Optional MonthOut As Integer) As String
  25. Dim s_nDatas_D() As String
  26. Dim s_Day As Long, s_Month As Integer, s_Year As Integer
  27. Dim s_iX As Integer, s_Int As Integer, s_Log As Long
  28.  
  29. GetString DateNows & "/", "/", s_nDatas_D()
  30.  
  31. a = DateBy_AddMonthOnMonth(datenows, ToMonth,
  32.  
  33. s_Day = ToMonth
  34.  
  35. DateBy_AddDayOnMonth = sstop
  36. End Function
  37.  
  38. Function DateBy_AddDayOnYear()
  39.  
  40. End Function
  41.  
  42. Function DateBy_AddYearOnYear(DateNows As String, ToYear As Long, Optional DayOut As Long, Optional MonthOut As Integer) As String
  43. Dim s_nDatas_D() As String
  44. Dim s_Day As Long, s_Month As Integer, s_Year As Integer
  45. Dim s_iX As Integer, s_Int As Integer ', s_Int As Long
  46.  
  47. GetString DateNows & "/", "/", s_nDatas_D()
  48.  
  49. 's_Int = ToYear * 12
  50. MonthOut = ToYear * 12
  51. DateBy_AddYearOnYear = DateBy_AddMonthOnMonth(DateNows, MonthOut, DayOut)
  52. End Function
  53.  
  54. Function DateBy_AddMonthOnMonth(DateNows As String, ToMonth As Integer, Optional DayOut As Long, Optional YearOut) As String
  55. Dim s_nDatas_D() As String
  56. Dim s_Day As Long, s_Month As Integer, s_Year As Integer
  57. Dim s_iX As Integer, s_Int As Integer, s_Log As Long
  58.  
  59. GetString DateNows & "/", "/", s_nDatas_D()
  60.  
  61. s_Log = ToMonth + Val(s_nDatas_D(1))
  62. s_Year = Int((s_Log - 1) / 12) + Val(s_nDatas_D(2))
  63. s_Month = s_Log Mod 12
  64. If s_Month = 0 Then s_Month = 12
  65. s_Day = DayCount("1/" & Val(s_nDatas_D(1)) + s_Int & "/" & Val(s_nDatas_D(2)), 1 & "/" & s_Month & "/" & s_Year)
  66. ''s_Day = DayCount(nJumlahHari(Val(s_nDatas_D(1)), Val(s_nDatas_D(2))) & "/" & Val(s_nDatas_D(1)) + s_Int & "/" & Val(s_nDatas_D(2)), nJumlahHari(s_Month, s_Year) & "/" & s_Month & "/" & s_Year)
  67. 's_Day = s_Day - Val(s_nDatas_D(0))
  68.  
  69. DayOut = s_Day + 0
  70. YearOut = Int(ToMonth / 12)
  71. DateBy_AddMonthOnMonth = DateBy_AddDayOnDay(DateNows, s_Day, 0)
  72. End Function
  73.  
  74.