RE: [Programmer-VB] Menghitung Umur...

mawardi Thu, 02 Nov 2006 17:02:40 -0800

Title: Message

ini cara memanggilnya

Usia01 (str(Round(Val((Now() - CDate(Text2(3))) / 365), 1)))

Catatan

Untuk CDate(Text2(3)) merupakan inputan tanggal lahir

ini function usia01

Public Function Usia01(ByVal iInp As String) As String
    Dim Num As Single, Pos As Long
    Dim Sign As String, Depan As String, Belakang As String

    Pos = InStr(iInp, ".")
    If Pos > 0 Then
        Depan = Mid(iInp, 1, Pos - 1)
        Belakang = Mid(iInp, Pos + 1)
    Else
        Depan = iInp
        Belakang = 0
    End If
    If Val(iInp) < 0 Then
        Sign = "-"
    Else
        Sign = "+"
    End If
    Text2(4) = Depan
    Text2(5) = Belakang
End Function

Semoga berguna dan dapat di kembangkan

P' Boleh sharing untuk prosess flownya, karena saya juga lagi ngembangin program untuk rumah sakit yang pernah saya buat

Salam

Mawardi

-----Original Message-----
From: Hendy Tjondro [mailto:[EMAIL PROTECTED]
Sent: Thursday, November 02, 2006 21:13
To: [email protected]
Subject: [Programmer-VB] Menghitung Umur...

Halo rekan2 milis sekalian...

Saya sedang membuat aplikasi rumah sakit...dan saya ingin menghitung umur pasien

masalahnya, saya mau output umur pasiennya sbg berikut :

.......Tahun .....Bulan .....Hari

selain itu saya juga mau nanya, bagaimana coding untuk membaca apakah file txt atau Picture yang berada pada suatu folder ( contoh: Folder Foto Pasien) itu ada,sehigga pada waktu di load tidak error jika file nya tidak ada...

contoh coding nya :

Private Cari()

With RsPasien

.Find ! [Kode Pasien] ='"& txtkodepasien &"'",,Forward,1

txtkodepasien.text = ! [Kode Pasien]

txtnamapasien.text = ! [Nama Pasien]

txtalamatpasien.text = ! [Alamat Pasien]

txtumurpasien.text = ! [Umur Pasien]

txtagamapasien.text = ! [Agama Pasien]

imgfotopasien.Picture = LoadPicture(App.path & "\Foto Pasien\ & txtkodepasien &".JPG"")

End With

End Sub

mohon bantuan milis sekalian, berserta coding nya..

Terima kasih banyak atas bantuan milis sekalian...

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

__._,_.___

Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer

SPONSORED LINKS

`Indonesia phone card`	`Programmer`	`Indonesia tour`
`Indonesia travel`	`Indonesia flower`

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

RE: [Programmer-VB] Menghitung Umur...

Kirim email ke