VBA Menghitung Usia Kehamilan

Bagi para petugas kesahatan, mengetahui usia kehamilan dengan akurat adalah langkah penting dalam memantau kesehatan janin dan merencanakan persiapan menyambut kelahiran.

Meskipun ada banyak aplikasi modern untuk menghitung usia kehamilan, bagaimana jika kamu bisa membuat program sederhana sendiri menggunakan Microsoft Excel?

Dalam artikel ini, kita akan membahas cara menggunakan VBA (Visual Basic for Applications) untuk membuat program penghitung usia kehamilan.

Pertama Buatkan terlebih dahulu 1 Userform seperti dibawah ini :

kemudian untuk scriptnya bisa diisi dengan

Private Sub CommandButton1_Click()
Dim JmlHari As Long, x As Long, Y As Long
Dim Tanggal As Variant

'Calendar Form
Tanggal = CalendarForm.GetDate
If Tanggal = Empty Then Exit Sub
TextBox1.Text = Tanggal

'menghitung masa kehamilan
JmlHari = DateDiff("d", TextBox1.Text, Date)

x = JmlHari \ 7
Y = JmlHari Mod 7

'menampilkan
Lb_hasil.Caption = x & " minggu " & Y & " hari"

End Sub

Private Sub UserForm_Initialize()
Lb_hasil.Caption = "Silahkan isi tanggal"
End Sub

Tutorial Lengkap bisa dilihat di video dibawah ini :