Thủ Thuật Access - Trao đổi Góp ý

Make no-cost Telegram automated tool for generating presents, subscriptions. Super gr

Fri, 17 Apr 2026 15:11:53 +0000

Free Telegram bot creating freebies, paid access. Amazing grow channels!

We presents for you this all-in-one TG bot:

1) Make presents

Now you’re able to make custom freebie, such as exclusive access, data, pictures, video content, visuals, promo vouchers, discount coupons, discounts, promo codes, and so on, including custom requirement to get your present. Namely, requirement to claim the gift is subscribing to the channels you specified at creation + some number of visits on your invite link inside the bot.

You can try a no-cost plan for this feature; though, to use it, you need to subscribe to a few TG channels among your channel list.

Just open our bot t.me/netxmixbot press "start" and tap "FREE GIFT".

Next Make paid subscriptions to channels or groups

It’s possible to create paid subscriptions for your channels or groups with this bot. Payments will be handled automatically via digital currency.

To create a paid membership, just visit @netxmixbot t.me/netxmixbot click "Start" – profile – channels – ADD.

Inside the bot you’ll discover tons of gifts that people earlier created, any of which you’re able to receive completely at no cost.

Simply press on the "Free Gifts" option in our bot.

Check it out - t.me/netxmixbot

Completely free fresh billions of ChatGPT, IPTV, Google accounts, Gdrive, game accounts, Game, private networks, Discord, messenger, Mega, etc. data at telegram bot.

For got data just open this link or simply enter /start in bot, choose gifts inside bot, select section databases, NET-Archives, NCloud and press on the database.

262 millions new DB from cryptocurrency traffic:

https://t.me/netxmixbot?start=gift_1

Over 10B ULP fresh database in banking, news sites, app traffic:

@netxmixbot?start=gift_4

Many other databases at Netxmix, just follow on bot to receive new databases daily:

@netxmixbot

Đăng ký miễn phí tài khoản ChatGPT tại Việt Nam Free dễ dàng

Thu, 30 Mar 2023 13:28:26 +0000

Mình vừa đăng ký được tài khoản chính thức ChatGPT tại Việt Nam một cách rất đơn giản bằng gmail và số điện thoại viettel của mình:

Mình vẫn tiếp tục hỏi function chuyển ngày dương lịch sang âm lịch và đay là câu trả lời:

Function Solar2Lunar(solarDate As Date) As Date

' Các thông số cần thiết để chuyển đổi ngày dương lịch sang ngày âm lịch
' (Được tìm thấy trên https://www.informatik.uni-leipzig.de/~d...2Lunar.pdf)

Dim lunarMonth As Integer
Dim lunarDay As Integer
Dim lunarYear As Integer
Dim i As Integer
Dim leap As Long
Dim temp As Long

Dim dd, mm, yy As Long
Dim dayNumber As Long

dd = Day(solarDate)
mm = Month(solarDate)
yy = Year(solarDate)

dayNumber = Int((DateSerial(yy, mm, dd) - DateSerial(1900, 1, 31)).TotalDays)

leap = 0
For i = 1900 To 2199
temp = LunarYearDays(i)
If (dayNumber >= temp) Then
dayNumber = dayNumber - temp
leap = GetLeapMonth(i)
Else
Exit For
End If
Next i

lunarMonth = 1
Do While (dayNumber >= LunarMonthDays(leap, lunarMonth))
dayNumber = dayNumber - LunarMonthDays(leap, lunarMonth)
lunarMonth = lunarMonth + 1
Loop

lunarDay = dayNumber + 1
lunarYear = i

If (leap > 0 And lunarMonth > leap) Then
lunarMonth = lunarMonth - 1
If (lunarMonth = leap) Then
lunarMonth = -leap
End If
End If

Lunar2Solar = DateSerial(lunarYear, lunarMonth, lunarDay)
End Function

' Hàm LunarYearDays trả về tổng số ngày của âm lịch trong một năm cụ thể
Private Function LunarYearDays(lunarYear As Integer) As Long
Dim i As Integer
Dim sum As Long

sum = 348
For i = 0 To 11
If (((LunarYearMonths(lunarYear) >> i) And 1) = 1) Then
sum = sum + 1
End If
Next i

sum = sum + GetLeapMonthDays(lunarYear)

LunarYearDays = sum
End Function

' Hàm LunarMonthDays trả về tổng số ngày của một tháng âm lịch trong một năm cụ thể
Private Function LunarMonthDays(leap As Long, lunarMonth As Integer) As Long
If (((LunarYearMonths(leap) >> (lunarMonth - 1)) And 1) = 1) Then
LunarMonthDays = 30
Else
LunarMonthDays = 29
End If
End Function

' Hàm GetLeapMonth trả về tháng nhuận trong một năm cụ thể (nếu có)
Private Function GetLeapMonth(lunarYear As Integer) As Long
GetLeapMonth = LunarYearMonths(lunarYear) And &HF
End Function

' Hàm GetLeapMonthDays trả về số ngày của tháng nhuận trong một năm cụ thể
Private Function GetLeapMonthDays(lunarYear As Integer) As Long
If (GetLeapMonth(lunarYear) > 0) Then
If ((LunarYearMonths(lunarYear) And &XF000) = &XF000) Then
GetLeapMonthDays = 30
Else
GetLeapMonthDays = 29
End If
Else
GetLeapMonthDays = 0
End If
End Function

' Mảng LunarYearMonths lưu trữ thông tin về tháng âm lịch của một năm cụ thể
' Các giá trị trong mảng có nghĩa như sau:
' 19 bit đầu tiên đại diện cho 12 tháng âm lịch, bắt đầu từ tháng 1 đến tháng 12.
' Nếu giá trị của bit tại một vị trí bằng 0, thì tháng tương ứng có 29 ngày; nếu bằng 1, thì tháng đó có 30 ngày.
' 4 bit cuối cùng có nghĩa là thông tin về tháng nhuận của năm đó. Giá trị của bit thứ 0 bằng 1 nếu năm đó có tháng nhuận, ngược lại bằng 0.
' 3 bit tiếp theo đại diện cho tháng nhuận (1 đến 12), nếu năm không có tháng nhuận thì sử dụng giá trị 0.

Private LunarYearMonths(259) As Long
Private Sub InitLunarYearMonths()
LunarYearMonths(1900) = &H4BD
LunarYearMonths(1901) = &H4AE
LunarYearMonths(1902) = &HA5B
LunarYearMonths(1903) = &H516
LunarYearMonths(1904) = &HAD5
LunarYearMonths(1905) = &HB6A
...
LunarYearMonths(2197) = &H95B
LunarYearMonths(2198) = &H49B
LunarYearMonths(2199) = &H4B5
End Sub
Các bạn có thể đăng ký ChatGPT nhanh chóng bằng cách vào trang: voicegpt.us
Khi nó hiển thị hình ảnh dưới đây thì chọn Sign up

Khi nó hiện bảng dưới đây thì các bạn điền đầy đủ số liệu vào (số liệu giả cũng được kể cả email và số điện thoại). Pass thì phải có chữ hoa, thường, số và ký tự đặc biệt.

Về phần INVITE CODE thì các bạn gõ vào: kZt4uVq, đây là mã số của mình dùng để giới thiệu bạn bè đăng ký ChatGPT (không có mã giới thiệu này nó buột phải đăng ký số điện thoại ngoài Việt Nam, trước đây có thể mua số điện thoại ảo để đăng ký nhưng bây giờ thì không còn được nữa rồi, tôi cũng nhờ đứa em ở Mỹ cho mã giới thiệu mới đăng ký đươc. Tất nhiên sau khi các bạn đăng ký xong thì cũng có mã INVITE CODE để giới thiệu cho người khác)
Sau đó thực hiện nốt những công việc nó yêu cầu là xong.

Nhờ kiểm tra code

Tue, 21 Mar 2023 13:30:50 +0000

Mình nhờ Chat GPT viết code và được trả lời như dưới đây. Nhờ các bạn kiêm tra hộ:

Mã PHP:
Save my prompt

All prompts

tạo 1 đoạn mã vba chuyển ngày dương lịch thành ngày âm lịch
Use active language
Incorporate keywords
Provide a call to action
Merlin Says:
Để chuyển đổi ngày dương lịch thành ngày âm lịch trong VBA, chúng ta có thể sử dụng các hàm tích hợp của Excel và một số biến đổi công thức. Dưới đây là đoạn code mẫu:

Function Solar2Lunar(SolarDay As Date) As String
    Dim LunarDay As String
    Dim LunarYear As Long
    Dim LunarMonth As Long
    Dim LunarDate As Long
    Dim SpringStart As Long
    Dim SpringMonth As Long
    
    LunarDay = ""
    
    ' Tính ngày 8/2 Âm lịch năm âm lịch tương ứng với ngày dương lịch đầu vào
    LunarYear = Year(SolarDay)
    SpringStart = WorksheetFunction.EoMonth(SolarDay, -2) + 1
    If Day(SolarDay) < SpringStart Then
        LunarYear = LunarYear - 1
        SpringStart = WorksheetFunction.EoMonth(DateSerial(LunarYear, 2, 1), -2) + 1
    End If
    SpringMonth = Month(SpringStart)
    LunarDate = Day(SpringStart) + DateDiff("d", SpringStart, SolarDay) + 1
    
    ' Tính tháng và ngày âm lịch tương ứng với ngày 8/2 Âm lịch
    LunarMonth = 1
    Do While LunarMonth <= 12
        If LunarDate <= WorksheetFunction.EoMonth(DateSerial(LunarYear, LunarMonth, 1), 0) Then
            Exit Do
        End If
        LunarDate = LunarDate - WorksheetFunction.EoMonth(DateSerial(LunarYear, LunarMonth, 1), 0)
        LunarMonth = LunarMonth + 1
    Loop
    
    ' Tạo chuỗi ngày âm lịch đầu ra
    LunarDay = LunarDate & "/" & LunarMonth & "/" & LunarYear
    
    Solar2Lunar = LunarDay
End Function
Để sử dụng, bạn chỉ cần gọi hàm Solar2Lunar với đối số là ngày dương lịch bạn muốn chuyển đổi, kiểu dữ liệu của đối số là Date, và hàm trả về chuỗi ngày âm lịch tương ứng. Ví dụ:

Sub Test()
    Dim SolarDay As Date
    Dim LunarDay As String
    
    SolarDay = DateSerial(2021, 4, 7)
    LunarDay = Solar2Lunar(SolarDay)
    
    MsgBox LunarDay
End Sub
Kết quả khi chạy đoạn mã này là chuỗi "T2/3/2021", tương ứng với ngày 7/4/2021 trong lịch dương là ngày thứ ba, ngày 3 tháng 2 năm 2021 trong lịch âm.

FREE
45
You still have 45 queries left! 

Diễn Đàn Hôm nay

Fri, 16 Sep 2022 02:12:43 +0000

Sao hôm nay nhà mình toàn chữ Hàn Quốc với chữ Nga lẫn lộn vậy bạn Noname ?
Khải Nguyên !

Mừng ngày quay trở lại

Sat, 19 Sep 2020 02:24:07 +0000

Xin chào BQT của diễn đàn, em là thành viên cũ của diễn đàn từ năm 2008 (vulhu06). Thông qua diễn đàn này em được họ chỏi rất rất nhiều điều bổ ích liên quan tới Access dưới sự trợ giúp hết sức nhiệt tình của các thành viên cũng như Anh Noname, Ongke., Maidinhdan,.. Tuy nhiên vì sự cố máy tính bị Virus nên tài khoản cũ không còn và cũng không có cách khôi phục, vì rất thích diễn đàn này nên em đã tạo lại tài khoản mới để giao lưu học hỏi. Rất mong BQT chào đón
Xin chúc diễn đàn ngày càng phát triển

Góp ý về gõ tiếng việt trên forum

Mon, 20 Apr 2020 21:06:48 +0000

Chào các bạn thuthuataccess.
Đầu tiên cảm ơn các bạn đã nhẫn nại trước các câu hỏi của mình, đã nhiệt tình hỗ trợ giải đáp các thắc mắc của mình. Đối với người có kinh nghiệm, phải trả lời những câu hỏi của mình, thật là lãng phí thời gian, mình xin lỗi khi trình độ access của mình còn non kém mà lại chẳng biết hỏi ai nên đã làm phiền các bạn.

Về forum, mình thấy các bạn duy trì được không khí thảo luận nghiêm túc, cô đọng, không làm mất thời giờ người đọc bởi những bài spam vô nghĩa.Mình rất ấn tượng về điều này.

Tốc độ hồi đáp của các bạn rất nhanh.

Mình có góp ý về bộ gõ tiếng việt của các bạn. Nếu khắc phục được thì thật tuyệt vời.
Trên hai máy tính đều không thấy bộ gõ tiếng việt nào của các bạn.

Một máy tính Win 10, chrome, mình phải bật unikey nhưng không hoạt động (với riêng forum thuthuataccess, các forum khác vẫn bình thường).
Máy tính win 7, firefox, thì uniey đang hoạt động để mình gõ bài viết này cho các bạn.

Vậy có thời gian, các bạn xem thử xem thế nào.

Cảm ơn trợ giúp của các bạn trong thời gian qua. Các bạn là diễn đàn access rất chuyên nghiệp.

thêm tính năng cho diễn đàn

Fri, 06 Dec 2019 00:40:15 +0000

Ước gì diễn đàn có 2 chức năng sau ( tính năng tương tự như các mạng xa hội ạ)
1 Gửi Thông báo khi có người cmt vào bài đăng
2 Chát trực tuyến hiển thị người online

Mong anh ad quan tâm ạ

cho em hoi Group có anh chị nào đang làm việc bên nhật không ạ

Mon, 04 Nov 2019 05:31:12 +0000

cho em hoi Group có anh chị nào đang làm việc về vba access bên nhật không ạ?
E rất muốn làm quen giao lưu vs ac

Group Facebook của diễn đàn access

Thu, 31 Oct 2019 07:58:55 +0000

anh chị cho em hỏi có diễn đàn thủ thuật access có nhóm Facebook không ạ?
nếu có cho em tham gia với ạ.

em biết bài này đăng ko đúng mục mong ad bỏ qua ạ vì e cũng ko biết đăng ở mục nào?

Quàng cáo cá độ nè Noname

Sat, 21 Sep 2019 05:00:49 +0000

[b][Help] Kinh nghiệm đặt cược trong cá độ bóng đá[/b]

Giúp mình Unlock tên miền trên Facebook

Fri, 21 Jun 2019 03:43:02 +0000

Hôm nay share 1 bài từ Thủ Thuật Access lên facebook mới phát hiện tên miền của mình bị block.
Anh em giúp mình share 1 vài bài hay từ Thủ thuật Access , nếu bị block thì report để facebook mở ra nhé!
Thanks mọi người

Sao thế này

Thu, 09 May 2019 16:36:28 +0000

Forum của chúng ta chuyển sang bán gỗ rồi sao?

v/v kỷ thuật đăng thơ

Sat, 04 May 2019 04:48:10 +0000

Thân mến gửi Mode!

Em mến! Gần đây không hiểu sao thơ đăng vẫn cách thức như thường lệ
Nhưng không hiểu sao thơ với hình không nằm được khoảng giữa coi đẹp mắt.
Mong nhờ em coi lại phần kỷ thuật dùm.
Thân mến! Chúc em vui khỏe!

Không thể không quan tâm khi sự cố này tái diễn

Sun, 22 Oct 2017 09:21:27 +0000

Một mai Nền tảng 32 Bit sẽ bị ngừng trệ thì bạn tính sao từ bây giờ ?
Đây là Link

Diễn đàn không gửi Email khi có thông báo

Wed, 18 Oct 2017 07:28:36 +0000

- Gửi Ban quản trị, khi mình đăng bài hoặc trả lời vào 1 chủ đề nào đó thì mình đều có tùy chọn gửi thông báo qua Email nhưng không thấy gửi, không biết Diễn đàn mình có chức năng đó chưa, Cám ơn
PMT