Skip to main content

Rumus Menghitung Umur di Salesforce

Sekedar catatan saja, buat rumus untuk menghitung umur seseorang, lewat formula field. Asumsi field tanggal lahir adalah Date_of_Birth__c

IF(
  MONTH(TODAY())>MONTH( Date_of_Birth__c ),
  YEAR(TODAY())-YEAR(Date_of_Birth__c ),
  IF(AND(MONTH(TODAY()) = MONTH(Date_of_Birth__c ),
     DAY(TODAY()) >=  DAY(Date_of_Birth__c )),
     YEAR(TODAY())-YEAR(Date_of_Birth__c ),
     (YEAR(TODAY())-YEAR(Date_of_Birth__c ))-1)
)

Entah cukup akurat atau tidak, tapi secara umum berjalan dengan baik :)


Sekedar tambahan untuk, berikut rumus untuk menghitung Tanggal Akhir = Tanggal Awal + Durasi (Bulan)
Agak rumit karena penjumlahan di formula hanya untuk hari, sementara dalam satu bulan jumlah hari berbeda-beda. Sebenarnya yang sulit adalah menentukan tanggal akhir, agar tanggal tidak melebihi jumlah hari di bulan tertentu.

Jika Y adalah tanggal akhir, X tanggal awal dan D adalah durasi dalam bulan, kira-kira berikut rumusnya.


DATE(
  YEAR(X) + FLOOR((MONTH(X) + D)  / 12),
  IF(MOD((MONTH(X) + D), 12) == 0, 12, MOD((MONTH(X) + D), 12)),
  IF ( DAY(X) < 28, DAY(X),
    IF (MOD((MONTH(X) + D), 12) == 2, 28,
      IF ( DAY(X) < 31, DAY (X),
        CASE (MOD((MONTH(X) + D), 12),
          1, 31,
          3, 31,
          4, 30,
          5, 31,
          6, 30,
          7, 31,
          8, 31,
          9, 30,
          10, 31,
          11, 30,
          31
        )
      )
    )  
  )
)

Tiga puluh menit ngoprek rumus di atas. Aku masih malas handle tahun kabisat di sini, jadi aku pukul rata aja, tiap Februari selalu berakhir di tanggal 28 hehehe
Labels:

Comments

Post a Comment

Popular posts from this blog

PostGreSQL :: Hitung Umur

Ternyata untuk menghitung umur dari data yang disimpan di PostGreSQL sangat gampang. PostGreSQL sendiri sudah menyediakan fungsi yang mendukung. Beberapa fungsi yang bisa dipakai adalah AGE dan EXTRACT. AGE dipakai untuk menghitung umur dari sebuah data, dibandingkan dengan hari ini, atau dengan data lain (tipenya timestamp). Misal: age(timestamp '1980-09-27'), akan menghasilkan nilai (bertipe interval) "24 years 1 mon 25 days". Nah, kalau mau mengambil nilai tahunnya saja, tinggal menggunakan EXTRACT Contoh: EXTRACT(year FROM AGE(timestamp '2001-09-27')), hasilnya akan jadi 24.
Post a Comment
Read more

PHP :: Selisih Jam

Setelah kemarin kesulitan untuk melakukan increment ataupun decrement terhadap variabel waktu (date/time) di PHP, kali ini nemuin masalah untuk mencari selisih waktu (dari satu jam ke jam tertentu), yang perlu untuk ngitung lembur karyawan. Tadinya kepikiran untuk buat fungsi sendiri, yang flow -nya kira-kira begini: - masing-masing dipisah menjadi jam, menit, detik - bandingkan antara keduanya. - lakukan pengurangan terhadap masing-masing komponen (jam, menit dan detik) - gabungkan hasil perhitungan ... (selisih jam + selisih menit + selisih detik) Tapi waktu aku ingat kasus Next Date, ... muncul ide untuk menggunakan cara yang sama, yaitu memanfaatkan format UNIX timestamp, terus nyoba mencari selisihnya. TERNYATA BERHASIL !!! Flownya seperti ini: - masing-masing dipisah menjadi jam, menit,detik - ubah masing-masing ke format timestamp, gunakan fungsi mktime() - kurangkan kedua jam - hasilnya dibagi 60 (karena satuannya pakai menit), sementara selisih timestamp itu dalam detik Algori...
11 comments
Read more

Delphi :: Split String

Akhirnya ketemu juga cara untuk melakukan split string. (Terbiasa pakai PHP sih, yang sangat memanjakan dalam pengelolaan string.) Di sini memanfaatkan TStringList, unit Classes. // procedure untuk split string procedure Split (const Delimiter: Char; // delimiter charachter Input: string; // input string const Strings: TStrings) ; // list of string result begin Assert(Assigned(Strings)) ; Strings.Clear; Strings.Delimiter := Delimiter; Strings.DelimitedText := Input; end; // contoh pemakaian procedure TForm1.Button1Click(Sender: TObject) ; var A: TStringList; begin A := TStringList.Create; try Split(' ', 'your delphi guide', A) ; ShowMessage(a[0]) ; //your ShowMessage(a[1]) ; //delphi ShowMessage(a[2]) ; //guide finally A.Free; end; end; Source : http://delphi.about.com/cs/adptips2002/a/bltip1102_5.htm Wheew .. akhirnya. One step ahead!!
2 comments
Read more