Function Lich Âm Dương 2012 ngắn gọn

Các thủ thuật liên quan đến xử lý chuỗi và thời gian
Post Reply
User avatar
truongphu
VIP
VIP
Posts: 4781
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 525 times

Function Lich Âm Dương 2012 ngắn gọn

Post by truongphu »

Thủ thuật: Function Lich Âm Dương 2012 ngắn gọn
Tác giả: truongphu
Mô tả: Function Lich Âm Dương 2012 ngắn gọn
Dành cho bạn nào muốn kèm trong sản phẩm VB6 của mình, xuất bản cho năm 2012
  1. Function D2012A(NgàyDL As Date) As String
  2. Const D2012 = "0812"   Const A2012 = "40101101010101"
  3.     Dim Khoang As Long Khoang = DateDiff("d", #1/1/2012#, NgàyDL)
  4.     Dim Al As Long Al = CLng(Left(D2012, 2)) + Khoang
  5.     Dim i%, j%, jj% jj = CLng(Right(D2012, 2))
  6.     For i = 2 To Len(A2012)
  7.         If Mid(A2012, i, 1) = 0 Then www = 29 Else www = 30
  8.         If Al <= www Then
  9.             Exit For
  10.         Else
  11.             Al = Al - www
  12.             j = j + 1
  13.             If (j >= CLng(Left(A2012, 1)) + 1) And i > 2 Then jj = j - 1 Else jj = j
  14.             If jj > 12 Then jj = jj Mod 12
  15.         End If
  16.     Next
  17.     D2012A = Al & "/" & jj
  18. End Function


Mẫu sử dụng:

Code: Select all

Private Sub Form_Paint()
    For p = 0 To 365 Step 37
        Dim SS As Date: SS = CDate(#1/1/2012# + p)
        Me.CurrentX = 600: Print SS & String(10, ".") & D2012A(SS)
    Next
End Sub
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh
Post Reply

Return to “[VB] Chuỗi và Thời gian”