Sedikit koreksi, sebelum dikomentari :-)
Script ini:
IF Mod(iThn,400)=0 AND (Mod(iThn,100)>0 AND Mod(iThn,4)=0) THEN
iJmlHari[2]=29
END IF
akan 'lebih benar' jika diubah menjadi:
IF Mod(iThn,400)=0 OR (Mod(iThn,100)>0 AND Mod(iThn,4)=0) THEN
iJmlHari[2]=29
END IF
Salam,
Wibisono
----- Original Message -----
From: "Y. Wibisono" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, April 04, 2006 11:17 AM
Subject: Re: [indopb] Algoritma Julian Date ???
Mas Iman,
Saya berikan contoh kecil untuk konversi dari format julian date ke date
standard. Untuk konversi sebaliknya, tinggal ngutak-atik aja khan :-)
Asumsi:
- buat function dengan nama terserah (misal f_j2d)
- argumen 'as_julian' adalah data julian date bertipe string dengan format
"YYYYddd"
- dHasil adalah return-value bertipe date
INT iThn, iBln, iTgl, iTmp
INT iJmlHari[12]= {31,28,31,30,31,30,31,31,30,31,30,31}
DATE dHasil
iThn=Integer(Left(as_julian,4))
// untuk cek kabisat
IF Mod(iThn,400)=0 AND (Mod(iThn,100)>0 AND Mod(iThn,4)=0) THEN
iJmlHari[2]=29
END IF
iTgl=Integer(Right(as_julian,3))
FOR iTmp=1 TO 12
IF iTgl < iJmlHari[iTmp] THEN
iBln=iTmp
EXIT
END IF
iTgl -= iJmlHari[iTmp]
NEXT
dHasil= date(iThn,iBln,iTgl)
RETURN dHasil
Jika data asal bertipe numeric, anda tinggal konversi datanya ke string
sebelum panggil function.
Jika anda menggunakan PFC, ada function 'n_cst_datetime' yang sebenarnya
sudah siap mendukung format julian date. Tapi, saya sendiri kurang explore
PFC.
Semoga membantu.
Wibisono
----- Original Message -----
From: "iman kuntowibowo" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, April 03, 2006 6:24 PM
Subject: [indopb] Algoritma Julian Date ???
Halo..teman2x, ada yang tahu atau pernah membuat
fungsi untuk algoritma/sample bulan & tanggal ke
format julian date dan sebaliknya
__________________________________________________
-----------------------------------------------
IndoPB - Indonesia PB User Group
To Post a message, send it to: [EMAIL PROTECTED]
To Unsubscribe,send a blank message to: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
